[gforth] / gforth / kernel / toolsext.fs  

gforth: gforth/kernel/toolsext.fs

Diff for /gforth/kernel/toolsext.fs between version 1.9 and 1.10

version 1.9, Tue Mar 23 20:24:27 1999 UTC version 1.10, Sat May 27 09:41:30 2000 UTC
Line 22 
Line 22 
   
 : dummy ;  immediate  : dummy ;  immediate
 : >exec  >r ; restrict ( :-)  : >exec  >r ; restrict ( :-)
 : scanIF   f83find  dup 0=  IF  drop ['] dummy >head  THEN  ;  : scanIF   f83find  dup 0=  IF  drop ['] dummy >head-noprim  THEN  ;
   
 Create [struct]-search    ' scanIF A,  ' (reveal) A,  ' drop A, ' drop A,  Create [struct]-search    ' scanIF A,  ' (reveal) A,  ' drop A, ' drop A,
 Create [struct]-voc       [struct]-search A,  Create [struct]-voc       [struct]-search A,

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help