[gforth] / gforth / history.fs  

gforth: gforth/history.fs

Diff for /gforth/history.fs between version 1.35 and 1.36

version 1.35, Mon Dec 27 20:05:53 2004 UTC version 1.36, Mon Dec 27 21:15:40 2004 UTC
Line 218 
Line 218 
     prefix-found @ IF  bl (ins)  THEN  0 ;      prefix-found @ IF  bl (ins)  THEN  0 ;
   
 : kill-prefix  ( key -- key )  : kill-prefix  ( key -- key )
   dup #tab <> IF  0 0 prefix-found 2!  THEN ;    dup #tab <> IF  prefix-off  THEN ;
   
 [IFUNDEF] everyline defer everyline [THEN]  [IFUNDEF] everyline defer everyline [THEN]
   


Generate output suitable for use with a patch program
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help