[gforth] / gforth / float.fs  

gforth: gforth/float.fs

Diff for /gforth/float.fs between version 1.6 and 1.7

version 1.6, Thu Jul 21 10:52:40 1994 UTC version 1.7, Thu Aug 25 15:25:23 1994 UTC
Line 70 
Line 70 
   scratch over c@ emit '. emit 1 /string type    scratch over c@ emit '. emit 1 /string type
   'E emit . ;    'E emit . ;
   
 : fnumber ( string -- r / )  : sfnumber ( c-addr u -- r / )
   ?dup IF  dup count >float 0=      2dup >float
            IF    defers notfound      IF
            ELSE  drop state @          2drop state @
                  IF  postpone FLiteral  THEN  THEN  THEN ;          IF
               postpone FLiteral
           THEN
       ELSE
           defers notfound
       THEN ;
   
 ' fnumber IS notfound  ' sfnumber IS notfound
   
 1e0 fasin 2e0 f* fconstant pi  1e0 fasin 2e0 f* fconstant pi
   


Generate output suitable for use with a patch program
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help