[Win32forth-cvs] win32forth/src FLOAT.F,1.14,1.15 numconv.f,1.4,1.5

[Dirk B. <db...@us...>]

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
- 
- 
-