version 1.59, 2011/10/06 20:04:35
|
version 1.60, 2011/10/06 21:08:45
|
Line 147 DOES> ( -- r )
|
Line 147 DOES> ( -- r )
|
dup |
dup |
recognizer: r:fnumber |
recognizer: r:fnumber |
|
|
:noname ( addr u -- nt int-table true | addr u false ) |
: fnum-recognizer ( addr u -- nt int-table true | addr u false ) |
2dup sfnumber dup |
2dup sfnumber dup |
IF |
IF |
drop 2drop r:fnumber true |
drop 2drop r:fnumber true |
THEN ; Constant fnum-recognizer |
THEN ; |
|
|
fnum-recognizer |
' fnum-recognizer |
forth-recognizer get-recognizers |
forth-recognizer get-recognizers |
1+ forth-recognizer set-recognizers |
1+ forth-recognizer set-recognizers |
[else] |
[else] |