[gforth] / gforth / see.fs  

gforth: gforth/see.fs

Diff for /gforth/see.fs between version 1.18 and 1.19

version 1.18, Sun Jul 6 14:29:34 1997 UTC version 1.19, Wed May 13 16:47:23 1998 UTC
Line 518 
Line 518 
   
 : seecode ( xt -- )  : seecode ( xt -- )
     dup s" Code" .defname      dup s" Code" .defname
     >body discode      threading-method
       if
           >code-address
       then
       discode
     ."  end-code" cr ;      ."  end-code" cr ;
 : seevar ( xt -- )  : seevar ( xt -- )
     s" Variable" .defname cr ;      s" Variable" .defname cr ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help