gforth/stuff.fs - diff

Return to stuff.fs CVS log

Up to [gforth] / gforth

version 1.31, 2003/03/09 15:16:56	version 1.33, 2004/05/08 17:14:30
Line 106 AUser CSP	Line 106 AUser CSP
POSTPONE (const-does>)	POSTPONE (const-does>)
POSTPONE ;	POSTPONE ;
noname : POSTPONE rdrop	noname : POSTPONE rdrop
lastxt r> cell+ ! \ patch the literal	latestxt r> cell+ ! \ patch the literal
; immediate	; immediate

\ !! rewrite slurp-file using slurp-fid	\ !! rewrite slurp-file using slurp-fid
Line 275 AUser CSP	Line 275 AUser CSP
10e f*	10e f*
loop ;	loop ;
[then]	[then]

	: f.s ( -- ) \ gforth f-dot-s
	\G Display the number of items on the floating-point stack,
	\G followed by a list of the items; TOS is the right-most item.
	." <" fdepth 0 .r ." > " fdepth 0 max maxdepth-.s @ min dup 0
	?DO dup i - 1- floats fp@ + f@ 16 5 11 f.rdp space LOOP drop ;