version 1.19, 1996/05/13 16:36:55
|
version 1.21, 1997/05/21 20:39:25
|
Line 55 dofield: lastxt code-address! \ change t
|
Line 55 dofield: lastxt code-address! \ change t
|
|
|
: f, ( f -- ) here 1 floats allot f! ; |
: f, ( f -- ) here 1 floats allot f! ; |
|
|
: fconstant ( r -- ) \ float |
: fconstant ( r "name" -- ) \ float |
Create f, |
Create f, |
DOES> ( -- r ) |
DOES> ( -- r ) |
f@ ; |
f@ ; |
Line 98 DOES> ( -- r )
|
Line 98 DOES> ( -- r )
|
scratch over c@ emit '. emit 1 /string type |
scratch over c@ emit '. emit 1 /string type |
'E emit . ; |
'E emit . ; |
|
|
require debugging.fs |
require debugs.fs |
|
|
: sfnumber ( c-addr u -- r true | false ) |
: sfnumber ( c-addr u -- r true | false ) |
2dup [CHAR] e scan ( c-addr u c-addr2 u2 ) |
2dup [CHAR] e scan ( c-addr u c-addr2 u2 ) |
Line 131 IS compiler-notfound
|
Line 131 IS compiler-notfound
|
ENDIF ; |
ENDIF ; |
IS interpreter-notfound |
IS interpreter-notfound |
|
|
: fvariable ( -- ) |
: fvariable ( "name" -- ) \ float |
Create 0.0E0 f, ; |
Create 0.0E0 f, ; |
\ does> ( -- f-addr ) |
\ does> ( -- f-addr ) |
|
|