version 1.58, 2010/12/31 18:09:02
|
version 1.59, 2011/10/06 20:04:35
|
Line 141 DOES> ( -- r )
|
Line 141 DOES> ( -- r )
|
2drop false |
2drop false |
THEN ; |
THEN ; |
|
|
|
[ifdef] recognizer: |
|
' noop |
|
:noname postpone Fliteral ; |
|
dup |
|
recognizer: r:fnumber |
|
|
|
:noname ( addr u -- nt int-table true | addr u false ) |
|
2dup sfnumber dup |
|
IF |
|
drop 2drop r:fnumber true |
|
THEN ; Constant fnum-recognizer |
|
|
|
fnum-recognizer |
|
forth-recognizer get-recognizers |
|
1+ forth-recognizer set-recognizers |
|
[else] |
[ifundef] compiler-notfound1 |
[ifundef] compiler-notfound1 |
defer compiler-notfound1 |
defer compiler-notfound1 |
' no.extensions IS compiler-notfound1 |
' no.extensions IS compiler-notfound1 |
Line 170 IS compiler-notfound1
|
Line 186 IS compiler-notfound1
|
defers interpreter-notfound1 |
defers interpreter-notfound1 |
ENDIF ; |
ENDIF ; |
IS interpreter-notfound1 |
IS interpreter-notfound1 |
|
[then] |
|
|
: fvariable ( "name" -- ) \ float f-variable |
: fvariable ( "name" -- ) \ float f-variable |
Create 0.0E0 f, ; |
Create 0.0E0 f, ; |