Diff for /gforth/cross.fs between versions 1.48 and 1.49

version 1.48, 1997/05/21 20:39:21 version 1.49, 1997/06/11 19:51:17
Line 722  Cond: DOES> restrict? Line 722  Cond: DOES> restrict?
         dup >magic @ <do:> =          dup >magic @ <do:> =
         IF  gexecute T 0 , H  EXIT THEN          IF  gexecute T 0 , H  EXIT THEN
     THEN      THEN
     compile :dodoes gexecute T here H cell - reloff ;      compile :dodoes gexecute T here H tcell - reloff ;
   
 : TCreate ( -- )  : TCreate ( -- )
   last-ghost @    last-ghost @

Removed from v.1.48  
changed lines
  Added in v.1.49


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