![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to float.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to float.fs CVS log | Up to [gforth] / gforth |
| version 1.62, 2011/11/14 22:33:22 | version 1.63, 2011/12/28 13:39:49 |
|---|---|
| Line 142 DOES> ( -- r ) | Line 142 DOES> ( -- r ) |
| THEN ; | THEN ; |
| [ifdef] recognizer: | [ifdef] recognizer: |
| ' noop | [IFDEF] 2lit, |
| :noname postpone Fliteral ; | : flit, postpone Fliteral ; |
| :noname ['] noop ; | |
| :noname ['] flit, ; | |
| [ELSE] | |
| ' noop | |
| :noname postpone Fliteral ; | |
| [THEN] | |
| dup | dup |
| recognizer: r:fnumber | recognizer: r:fnumber |