Diff for /gforth/kernel/recognizer.fs between versions 1.4 and 1.5

version 1.4, 2011/10/05 21:06:11 version 1.5, 2011/10/05 21:09:05
Line 26 Line 26
 :noname ( ... nt -- ) name>int compile, ;  :noname ( ... nt -- ) name>int compile, ;
 :noname ( ... nt -- ) name>comp execute ;  :noname ( ... nt -- ) name>comp execute ;
 :noname ( ... nt -- ) postpone Literal ;  :noname ( ... nt -- ) postpone Literal ;
 recognizer: r:int-table  recognizer: r:interpreter
   
 :noname ( addr u -- nt int-table true | addr u false )  :noname ( addr u -- nt int-table true | addr u false )
     2dup find-name [ [IFDEF] prelude-mask ] run-prelude [ [THEN] ] dup      2dup find-name [ [IFDEF] prelude-mask ] run-prelude [ [THEN] ] dup
     IF      IF
         nip nip r:int-table true  EXIT          nip nip r:interpreter true  EXIT
     THEN ; Constant int-recognizer      THEN ; Constant int-recognizer
   
 ' noop  ' noop

Removed from v.1.4  
changed lines
  Added in v.1.5


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>