[Win32forth-cvs] win32forth/src FLOAT.F,1.50,1.51

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv13216

Modified Files:
	FLOAT.F 
Log Message:
Minor doc changes

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.50
retrieving revision 1.51
diff -C2 -d -r1.50 -r1.51
*** FLOAT.F	15 May 2008 04:28:26 -0000	1.50
--- FLOAT.F	28 Jun 2008 20:40:31 -0000	1.51
***************
*** 1929,1933 ****
                  float;
  
! : rep-normal    ( addr u -- n true ; fs: r -- )
                  1 max 2dup [char] 0 fill 18 umin
                  fdup flog floor f>s 1+ dup>r over -
--- 1929,1933 ----
                  float;
  
! : rep-normal    ( addr u -- n true ; fs: r -- ) \ handle normal floats in REPRESENT.
                  1 max 2dup [char] 0 fill 18 umin
                  fdup flog floor f>s 1+ dup>r over -
***************
*** 1949,1953 ****
  
  \ ' rep-normal alias rep-denormal      \ made a colon def - [cdo-2008May13]
! : rep-denormal  \ synonym of REP-NORMAL
                  rep-normal ;
  
--- 1949,1954 ----
  
  \ ' rep-normal alias rep-denormal      \ made a colon def - [cdo-2008May13]
! : rep-denormal  ( addr u -- n true ; fs: r -- ) \ handle denormal floats in REPRESENT
! \ (which is the same action as for normal floats).
                  rep-normal ;