[Win32forth-cvs] win32forth/src FLOAT.F,1.2,1.3

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

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

Modified Files:
	FLOAT.F 
Log Message:
gah: modified _float-number, to reset float? 

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** FLOAT.F	26 Apr 2005 19:56:49 -0000	1.2
--- FLOAT.F	30 Apr 2005 15:13:29 -0000	1.3
***************
*** 2246,2250 ****
  \in-system-ok           if      postpone fliteral
                          then
!                         2drop
                  then    ;
  
--- 2246,2250 ----
  \in-system-ok           if      postpone fliteral
                          then
!                         2drop 0 to float?
                  then    ;
  
***************
*** 2314,2315 ****
--- 2314,2316 ----
                  end-code
  
+