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

version 1.38, 2002/01/04 20:31:54 version 1.39, 2002/01/26 16:31:40
Line 584  Defer discode ( addr u -- ) \ gforth Line 584  Defer discode ( addr u -- ) \ gforth
   
 : seecode ( xt -- )  : seecode ( xt -- )
     dup s" Code" .defname      dup s" Code" .defname
     threading-method      >code-address
     if  
         >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

Removed from v.1.38  
changed lines
  Added in v.1.39


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