Diff for /gforth/see.fs between versions 1.35 and 1.36

version 1.35, 2001/03/17 21:36:41 version 1.36, 2001/03/28 09:06:57
Line 254  VARIABLE C-Pass Line 254  VARIABLE C-Pass
     THEN      THEN
     cell+ ;      cell+ ;
   
 : .word  : .word ( addr xt -- addr )
     look 0= IF      look 0= IF
         drop dup 1 cells - @ ." <" 0 .r ." >"          drop dup 1 cells - @ dup body> look
           IF
               nip dup ." <" name>string rot wordinfo .string ." >"
           ELSE
               drop ." <" 0 .r ." >"
           THEN
     ELSE      ELSE
         dup cell+ @ immediate-mask and          dup cell+ @ immediate-mask and
         IF          IF

Removed from v.1.35  
changed lines
  Added in v.1.36


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