[Win32forth-cvs] win32forth/src numconv.f,1.2,1.3

[Alex M. <ale...@us...>]

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

Modified Files:
	numconv.f 
Log Message:
arm: number? didn't initialise flags; num-init added; removed num-init
 from new-number

Index: numconv.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/numconv.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** numconv.f	11 Jun 2005 21:17:56 -0000	1.2
--- numconv.f	11 Jun 2005 21:24:24 -0000	1.3
***************
*** 126,130 ****
  
  : new-number    ( str -- d1 )           \ d1 is number, or -13 throw (undefined)
-                 num-init
                  uppercase count run-numchain ;
  
--- 126,129 ----
***************
*** 234,237 ****
--- 233,237 ----
  
  : NUMBER?       ( addr len -- d f )          \ to support >FLOAT
+                 num-init
                  ['] dotted-number? catch 0= 
                  double? 0= and               \ October 1st, 1996 - 10:51 tjz & am