gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

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