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

version 1.18, 1997/07/06 14:29:34 version 1.19, 1998/05/13 16:47:23
Line 518  IS discode Line 518  IS discode
   
 : 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 ;

Removed from v.1.18  
changed lines
  Added in v.1.19


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>