--- gforth/kernel/recognizer.fs	2011/10/07 17:10:15	1.14
+++ gforth/kernel/recognizer.fs	2012/05/26 12:11:43	1.16
@@ -23,9 +23,14 @@
 
 ' no.extensions dup dup Create r:fail A, A, A,
 
-:noname ( ... nt -- ) name>int execute ;
-:noname ( ... nt -- ) name>comp execute ;
-:noname ( ... nt -- ) postpone Literal ;
+: lit, ( n -- ) postpone Literal ;
+: nt, ( nt -- ) name>comp execute ;
+Variable nt-ex-r
+: nt-ex ( nt -- )  r> nt-ex-r ! name>int execute nt-ex-r @ >r ;
+
+' nt-ex
+' nt,
+' lit,
 Create r:word rot A, swap A, A,
 
 : word-recognizer ( addr u -- nt r:word | addr u r:fail )
@@ -33,12 +38,12 @@ Create r:word rot A, swap A, A,
     IF  nip nip r:word  ELSE  drop r:fail  THEN ;
 
 ' noop
-:noname  postpone Literal ;
+' lit,
 dup
 Create r:num rot A, swap A, A,
 
 ' noop
-:noname  postpone 2Literal ;
+:noname ( n -- ) postpone 2Literal ;
 dup
 Create r:2num rot A, swap A, A,