![[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.3, 2011/10/05 21:02:09 | version 1.4, 2011/10/05 21:06:11 |
|---|---|
| Line 95 num-recognizer int-recognizer 2 forth-re | Line 95 num-recognizer int-recognizer 2 forth-re |
| \G Enter compilation state. | \G Enter compilation state. |
| ['] compiler-r IS parser1 state on ; | ['] compiler-r IS parser1 state on ; |
| : postpone ( "name" -- ) \ core | |
| \g Compiles the compilation semantics of @i{name}. | |
| parse-name forth-recognizer do-recognizer >r | |
| r@ r>lit perform r> r>comp @ compile, ; immediate | |