[Win32forth-cvs] win32forth-stc/src float.f,1.7,1.8

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

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

Modified Files:
	float.f 
Log Message:
gah:changed float-number? to correctly do lower case, as suggested by Tom Dixon

Index: float.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/float.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** float.f	22 Mar 2007 02:11:27 -0000	1.7
--- float.f	11 May 2007 13:59:15 -0000	1.8
***************
*** 2120,2124 ****
  \ so we add an extra test for the presence of the required letter 'E' in a
  \ floating point string.
!                 2dup 'E' scan nip 0= throw
                  FALSE to float?              \ need to initialize to non-floating#
                  >FLOAT 0= throw              \ not a float, throw
--- 2120,2125 ----
  \ so we add an extra test for the presence of the required letter 'E' in a
  \ floating point string.
!                 2dup 'E' scan nip 0=
!                 if 2dup 'e' scan nip 0= throw then \ take into account lower case
                  FALSE to float?              \ need to initialize to non-floating#
                  >FLOAT 0= throw              \ not a float, throw