version 1.47, 2003/01/04 08:26:57
|
version 1.48, 2003/01/06 11:18:59
|
Line 278 VARIABLE C-Pass
|
Line 278 VARIABLE C-Pass
|
: .word ( addr x -- addr ) |
: .word ( addr x -- addr ) |
\ print x as a word if possible |
\ print x as a word if possible |
dup look 0= IF |
dup look 0= IF |
drop dup threaded>name 0= if |
drop dup threaded>name dup 0= if |
2drop dup 1 cells - @ dup body> look |
2drop dup 1 cells - @ dup body> look |
IF |
IF |
nip dup ." <" name>string rot wordinfo .string ." > " |
nip dup ." <" name>string rot wordinfo .string ." > " |
Line 331 VARIABLE C-Pass
|
Line 331 VARIABLE C-Pass
|
cell+ ; |
cell+ ; |
|
|
: .name-without ( addr -- addr ) |
: .name-without ( addr -- addr ) |
\ prints a name without a() e.g. a(+LOOP) or (s") |
\ !! the stack effect cannot be correct |
dup 1 cells - @ threaded>name IF |
\ prints a name without a() e.g. a(+LOOP) or (s") |
|
dup 1 cells - @ threaded>name dup IF |
name>string over c@ 'a = IF |
name>string over c@ 'a = IF |
1 /string |
1 /string |
THEN |
THEN |