![[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.17, 2012/05/28 14:15:04 | version 1.18, 2012/06/22 00:15:03 |
|---|---|
| Line 25 | Line 25 |
| : lit, ( n -- ) postpone Literal ; | : lit, ( n -- ) postpone Literal ; |
| : nt, ( nt -- ) name>comp execute ; | : nt, ( nt -- ) name>comp execute ; |
| : nt-ex ( nt -- ) r> >l name>int execute @local0 >r lp+ ; | : nt-ex ( nt -- ) |
| [ cell 1 floats - dup [IF] ] lp+!# [ dup , [THEN] drop ] | |
| r> >l name>int execute @local0 >r lp+ ; | |
| ' nt-ex | ' nt-ex |
| ' nt, | ' nt, |