Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18336/src
Modified Files:
FLOAT.F numconv.f
Log Message:
Changed NUMBER? to be compatible with older w32f versions. Our current NUMBER? didn't accept "dotted numbers" (like 1.0) in older versions "dotted numbers" were accepted as valid numbers.
Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** FLOAT.F 31 Jul 2005 07:43:19 -0000 1.14
--- FLOAT.F 27 Aug 2005 09:02:10 -0000 1.15
***************
*** 1833,1836 ****
--- 1833,1838 ----
drop 1- charcnt @ 1+ number?
+ double? 0= and \ October 1st, 1996 - 10:51 tjz & am
+ \ double exponent not allowed
IF d>s r>
IF negate
***************
*** 2339,2343 ****
L$2: next,
end-code
-
-
- |
