--- gforth/kernel/recognizer.fs	2011/10/06 21:02:57	1.10
+++ gforth/kernel/recognizer.fs	2011/10/06 21:18:46	1.13
@@ -18,8 +18,8 @@
 : recognizer: ( xt1 xt2 xt3 -- ) Create rot , swap , , ;
 
 (field) r>int      ( r-addr -- addr )  0 cells ,
-(field) r>comp     ( r-addr -- )       1 cells ,
-(field) r>lit      ( r-addr -- )       2 cells ,
+(field) r>comp     ( r-addr -- addr )  1 cells ,
+(field) r>lit      ( r-addr -- addr )  2 cells ,
 
 :noname ( ... nt -- ) name>int execute ;
 :noname ( ... nt -- ) name>comp execute ;
@@ -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