Return to see.fs CVS log | Up to [gforth] / gforth |
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 |