--- gforth/kernel/recognizer.fs 2011/10/06 21:02:57 1.10 +++ gforth/kernel/recognizer.fs 2011/10/06 21:17:21 1.12 @@ -106,8 +106,9 @@ Variable forth-recognizer \G Enter compilation state. ['] compiler-r IS parser1 state on ; +: >int ( token table -- ) r>int perform ; +: >comp ( token table -- ) r>comp perform ; : >postpone ( token table -- ) - dup r:fail = IF no.extensions THEN >r r@ r>lit perform r> r>comp @ compile, ; : postpone ( "name" -- ) \ core