--- gforth/kernel/recognizer.fs	2011/10/07 17:10:15	1.14
+++ gforth/kernel/recognizer.fs	2012/05/28 14:15:04	1.17
@@ -23,9 +23,13 @@
 
 ' 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 ;
+: nt-ex ( nt -- )  r> >l name>int execute @local0 >r lp+ ;
+
+' 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 +37,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,