[gforth] / gforth / extend.fs  

gforth: gforth/extend.fs

Diff for /gforth/extend.fs between version 1.8 and 1.9

version 1.8, Mon Jan 30 18:47:45 1995 UTC version 1.9, Thu Apr 20 09:42:50 1995 UTC
Line 121 
Line 121 
   
 : expect ( c-addr +len -- )  : expect ( c-addr +len -- )
   0 rot over    0 rot over
   BEGIN  key decode >r 2over = r> or  UNTIL      BEGIN ( maxlen span c-addr pos1 )
           key decode ( maxlen span c-addr pos2 flag )
           >r 2over = r> or
       UNTIL
       type-rest drop
   2drop nip span ! ;    2drop nip span ! ;
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help