[Win32forth-cvs] win32forth/src FLOAT.F,1.33,1.34

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

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

Modified Files:
	FLOAT.F 
Log Message:
gah: Minor bug fix

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** FLOAT.F	6 Feb 2006 15:05:20 -0000	1.33
--- FLOAT.F	6 Feb 2006 15:40:36 -0000	1.34
***************
*** 1403,1407 ****
                  ELSE    f2* fdup f0<
                          IF      fexpm1 fdup f2.0 f+ f/
!                         ELSE    fnegate fexp fdup f1.0 f- \ RLS Sep. 21, 1997
                                  fswap f1.0 f+ f/
                          THEN
--- 1403,1407 ----
                  ELSE    f2* fdup f0<
                          IF      fexpm1 fdup f2.0 f+ f/
!                         ELSE    fnegate fexp f1.0 fover f- \ RLS Sep. 21, 1997
                                  fswap f1.0 f+ f/
                          THEN