Diff for /gforth/kernel/cond.fs between versions 1.10 and 1.11

version 1.10, 2000/09/23 15:47:09 version 1.11, 2001/02/24 17:24:45
Line 109  variable backedge-locals Line 109  variable backedge-locals
 : sys?        ( sys -- )        dup 0= ?struc ;  : sys?        ( sys -- )        dup 0= ?struc ;
 : >mark ( -- orig )  : >mark ( -- orig )
  cs-push-orig 0 , ;   cs-push-orig 0 , ;
 : >resolve    ( addr -- )        here over - swap ! ;  : >resolve    ( addr -- )
       here over - swap !
       0 last-compiled ! ;
 : <resolve    ( addr -- )        here - , ;  : <resolve    ( addr -- )        here - , ;
   
 : BUT  : BUT
Line 155  Defer begin-like ( -- ) Line 157  Defer begin-like ( -- )
 ' noop IS begin-like  ' noop IS begin-like
   
 : BEGIN ( compilation -- dest ; run-time -- ) \ core  : BEGIN ( compilation -- dest ; run-time -- ) \ core
     begin-like cs-push-part dest ; immediate restrict      begin-like cs-push-part dest
       0 last-compiled ! ; immediate restrict
   
 Defer again-like ( dest -- addr )  Defer again-like ( dest -- addr )
 ' nip IS again-like  ' nip IS again-like

Removed from v.1.10  
changed lines
  Added in v.1.11


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