[gforth] / gforth / kernel / cond.fs  

gforth: gforth/kernel/cond.fs

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

version 1.10, Sat Sep 23 15:47:09 2000 UTC version 1.11, Sat Feb 24 17:24:45 2001 UTC
Line 109 
Line 109 
 : 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 
Line 157 
 ' 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

Generate output suitable for use with a patch program
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help