Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Add better chain support |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
8afee7be220d3db441c750d2a23e802b |
User & Date: | bernd 2019-07-05 15:01:25.500 |
Context
2019-07-05
| ||
20:42 | Show message about nobody is online check-in: 29c25f391e user: bernd tags: trunk | |
15:01 | Add better chain support check-in: 8afee7be22 user: bernd tags: trunk | |
14:51 | Add better chain support check-in: 985b47981c user: bernd tags: trunk | |
Changes
Changes to msg.fs.
︙ | ︙ | |||
1542 1543 1544 1545 1546 1547 1548 | \ ." signal: '" 85type ''' forth:emit forth:cr $, msg-signal ;] rectype-name THEN ELSE 2drop rectype-null THEN ; : chain-rec ( addr u -- ) over c@ '!' = IF | | | 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 | \ ." signal: '" 85type ''' forth:emit forth:cr $, msg-signal ;] rectype-name THEN ELSE 2drop rectype-null THEN ; : chain-rec ( addr u -- ) over c@ '!' = IF 2dup 1 /string dup 0= IF 2drop 2drop rectype-null EXIT THEN snumber? case 0 of endof -1 of msg-group-o .msg:log[] $[]# over abs over u< IF over 0< IF + ELSE drop THEN >r over ?flush-text + to last->in r> |
︙ | ︙ |