gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.41, 2003/01/26 20:56:37	version 1.43, 2004/05/08 17:14:30
Line 1	Line 1
\ High level floating point 14jan94py	\ High level floating point 14jan94py

\ Copyright (C) 1995,1997 Free Software Foundation, Inc.	\ Copyright (C) 1995,1997,2003 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 221 set-current	Line 221 set-current
ELSE	ELSE
fnegate f~rel	fnegate f~rel
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@ f. LOOP drop ;