[gforth] / gforth / see.fs  

gforth: gforth/see.fs

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

version 1.35, Sat Mar 17 21:36:41 2001 UTC version 1.36, Wed Mar 28 09:06:57 2001 UTC
Line 254 
Line 254 
     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

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help