Diff for /gforth/kernel/comp.fs between versions 1.108 and 1.109

version 1.108, 2011/09/22 10:05:11 version 1.109, 2011/10/06 20:04:35
Line 364  has? primcentric [IF] Line 364  has? primcentric [IF]
         swap POSTPONE aliteral compile,          swap POSTPONE aliteral compile,
     then ;      then ;
   
   has? recognizer [IF]
       include ./recognizer.fs
   [ELSE]
 : POSTPONE ( "name" -- ) \ core  : POSTPONE ( "name" -- ) \ core
     \g Compiles the compilation semantics of @i{name}.      \g Compiles the compilation semantics of @i{name}.
     COMP' postpone, ; immediate      COMP' postpone, ; immediate
   [THEN]
   
 \ \ recurse                                                     17may93jaw  \ \ recurse                                                     17may93jaw
   
Line 376  has? primcentric [IF] Line 380  has? primcentric [IF]
   
 \ \ compiler loop  \ \ compiler loop
   
   has? recognizer 0= [IF]
 : compiler1 ( c-addr u -- ... xt )  : compiler1 ( c-addr u -- ... xt )
     2dup find-name [ [IFDEF] prelude-mask ] run-prelude [ [THEN] ] dup      2dup find-name [ [IFDEF] prelude-mask ] run-prelude [ [THEN] ] dup
     if ( c-addr u nt )      if ( c-addr u nt )
Line 403  has? primcentric [IF] Line 408  has? primcentric [IF]
 : ] ( -- ) \ core       right-bracket  : ] ( -- ) \ core       right-bracket
     \G Enter compilation state.      \G Enter compilation state.
     ['] compiler1     IS parser1 state on  ;      ['] compiler1     IS parser1 state on  ;
   [THEN]
   
 \ \ Strings                                                     22feb93py  \ \ Strings                                                     22feb93py
   

Removed from v.1.108  
changed lines
  Added in v.1.109


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