[gforth] / gforth / blocks.fs  

gforth: gforth/blocks.fs

Diff for /gforth/blocks.fs between version 1.39 and 1.40

version 1.39, Mon Jan 20 19:17:59 2003 UTC version 1.40, Wed Jan 22 10:59:54 2003 UTC
Line 242 
Line 242 
     \G Save the current input source specification. Store @i{n} in      \G Save the current input source specification. Store @i{n} in
     \G @code{BLK}, set @code{>IN} to 0 and interpret. When the parse      \G @code{BLK}, set @code{>IN} to 0 and interpret. When the parse
     \G area is exhausted, restore the input source specification.      \G area is exhausted, restore the input source specification.
     loadfilename 2@ 2>r      s" * a block*" loadfilename>r
     s" * a block*" loadfilename 2!  
     push-file      push-file
     dup loadline ! blk ! >in off ['] interpret catch      dup loadline ! blk ! >in off ['] interpret catch
     pop-file      pop-file
     2r> loadfilename 2!      r>loadfilename
     throw ;      throw ;
 [THEN]  [THEN]
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help