[Win32forth-cvs] win32forth/apps/Player4 NUMBER.F,1.3,1.4

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5530/apps/Player4

Modified Files:
	NUMBER.F 
Log Message:
Jos: Added .fint.r for big floats in which you like too see the integer part only.

Index: NUMBER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/NUMBER.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** NUMBER.F	14 May 2005 11:40:21 -0000	1.3
--- NUMBER.F	10 Aug 2006 20:23:51 -0000	1.4
***************
*** 128,132 ****
  
  : l.f        ( f: f - ) (l.f) type ;
! : l.fr       ( r - )  ( f: f - ) (l.f) rot type-r ;
  
  : #zeros-in$? ( adr count - #zeros )
--- 128,133 ----
  
  : l.f        ( f: f - ) (l.f) type ;
! : l.fr       ( r - )    ( f: f - ) (l.f) rot type-r ;
! : .fint.r    ( r - )    ( F: f - )   (l.f) no_idigits rot type-r  ;
  
  : #zeros-in$? ( adr count - #zeros )
***************
*** 152,156 ****
  cr -12345e   12 l.fr
  cr  1239.47e 12 l.fr
! 
  cr
  cr 9841  l.
--- 153,157 ----
  cr -12345e   12 l.fr
  cr  1239.47e 12 l.fr
! cr  1240.58e 12 .fint.r
  cr
  cr 9841  l.
***************
*** 186,188 ****
  
   \s
!