Diff for /gforth/see.fs between versions 1.28 and 1.29

version 1.28, 2000/06/15 09:01:11 version 1.29, 2000/08/21 20:08:02
Line 603  Defer discode ( addr u -- ) \ gforth Line 603  Defer discode ( addr u -- ) \ gforth
     dup >body ." 0 " ? ." 0 0 "      dup >body ." 0 " ? ." 0 0 "
     s" Field" .defname cr ;      s" Field" .defname cr ;
   
 : xt-see ( xt -- )  : xt-see ( xt -- ) \ gforth
       \G Decompile the definition represented by @i{xt}.
     cr c-init      cr c-init
     dup >does-code      dup >does-code
     if      if

Removed from v.1.28  
changed lines
  Added in v.1.29


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