[gforth] / gforth / history.fs  

gforth: gforth/history.fs

Diff for /gforth/history.fs between version 1.27 and 1.28

version 1.27, Sat Sep 15 20:40:47 2001 UTC version 1.28, Mon Sep 17 09:19:22 2001 UTC
Line 206 
Line 206 
     5 pick over 4 pick + prefix-found @ 0<> - < ;      5 pick over 4 pick + prefix-found @ 0<> - < ;
   
 : tab-expand ( max span addr pos1 -- max span addr pos2 0 )  : tab-expand ( max span addr pos1 -- max span addr pos2 0 )
       key? IF  #tab (ins) 0  EXIT  THEN
     kill-expand  2dup extract-word dup 0= IF  nip EXIT  THEN      kill-expand  2dup extract-word dup 0= IF  nip EXIT  THEN
     search-prefix  tib-full?      search-prefix  tib-full?
     IF    7 emit  2drop  0 0 prefix-found 2!      IF    7 emit  2drop  0 0 prefix-found 2!

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help