![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to recognizer.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to recognizer.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.16, 2012/05/26 12:11:43 | version 1.17, 2012/05/28 14:15:04 |
|---|---|
| Line 25 | Line 25 |
| : lit, ( n -- ) postpone Literal ; | : lit, ( n -- ) postpone Literal ; |
| : nt, ( nt -- ) name>comp execute ; | : nt, ( nt -- ) name>comp execute ; |
| Variable nt-ex-r | : nt-ex ( nt -- ) r> >l name>int execute @local0 >r lp+ ; |
| : nt-ex ( nt -- ) r> nt-ex-r ! name>int execute nt-ex-r @ >r ; | |
| ' nt-ex | ' nt-ex |
| ' nt, | ' nt, |