![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to postpone.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / test|
Return to postpone.fs CVS log | Up to [gforth] / gforth / test |
| version 1.2, 2009/11/28 21:19:34 | version 1.3, 2012/06/22 00:48:48 |
|---|---|
| Line 381 testing postpone [char] | Line 381 testing postpone [char] |
| { PCHAR1 -> 58 } | { PCHAR1 -> 58 } |
| { PCHAR2 -> 48 } | { PCHAR2 -> 48 } |
| \ test if we can build entire macros | |
| testing postpone macros | |
| : n+: ( N -- ) >R : R> POSTPONE LITERAL POSTPONE + POSTPONE ; ; | |
| 3 n+: 3+ | |
| : bar 3+ ; | |
| { 5 bar -> 8 } |