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
|
