[gforth] / gforth / kernel / toolsext.fs  

gforth: gforth/kernel/toolsext.fs

Diff for /gforth/kernel/toolsext.fs between version 1.1 and 1.2

version 1.1, Wed May 21 20:40:18 1997 UTC version 1.2, Sun Jul 6 15:56:17 1997 UTC
Line 25 
Line 25 
 : >exec  >r ; restrict ( :-)  : >exec  >r ; restrict ( :-)
 : scanIF   f83find  dup 0=  IF  drop ['] dummy >name  THEN  ;  : scanIF   f83find  dup 0=  IF  drop ['] dummy >name  THEN  ;
   
 Create [struct]-search    ' scanIF A,  ' (reveal) A,  ' drop A,  Create [struct]-search    ' scanIF A,  ' (reveal) A,  ' drop A, ' drop A,
 Create [struct]-voc       NIL A,       [struct]-search A,  Create [struct]-voc       NIL A,       [struct]-search A,
                           NIL A,       NIL A,                            NIL A,       NIL A,
   


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

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help