[gforth] / gforth / see.fs  

gforth: gforth/see.fs

Diff for /gforth/see.fs between version 1.38 and 1.39

version 1.38, Fri Jan 4 20:31:54 2002 UTC version 1.39, Sat Jan 26 16:31:40 2002 UTC
Line 584 
Line 584 
   
 : seecode ( xt -- )  : seecode ( xt -- )
     dup s" Code" .defname      dup s" Code" .defname
     threading-method  
     if  
         >code-address          >code-address
     then  
     dup in-dictionary? \ user-defined code word?      dup in-dictionary? \ user-defined code word?
     if      if
         dup next-head          dup next-head

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help