version 1.6, 1994/07/21 10:52:40
|
version 1.7, 1994/08/25 15:25:23
|
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 |
|
|