gforth/ans-report.fs - diff

Return to ans-report.fs CVS log

Up to [gforth] / gforth

version 1.11, 2003/03/22 10:04:06	version 1.12, 2005/09/03 07:49:02
Line 140 ans-report-words definitions	Line 140 ans-report-words definitions
>body ['] branch xt>threaded over !	>body ['] branch xt>threaded over !
cell+ >r >body r> ! ;	cell+ >r >body r> ! ;

	: print-names ( endaddr startaddr -- )
	space 1 -rot
	u+do ( pos )
	i @ name>string nip 1+ { len }
	len + ( newpos )
	dup cols 4 - >= if
	cr space drop len 1+
	endif
	i @ .name
	cell +loop
	drop ;

forth definitions	forth definitions
ans-report-words	ans-report-words

Line 153 ans-report-words	Line 165 ans-report-words
dup >r name>int >body dup @ swap cell+ 2@ dup	dup >r name>int >body dup @ swap cell+ 2@ dup
if	if
." from " r@ .name ." :" cr	." from " r@ .name ." :" cr
bounds	bounds print-names cr
u+do
i @ .name
cell
+loop
cr
else	else
2drop	2drop
endif	endif