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
|
