version 1.60, 2011/10/06 21:08:45
|
version 1.61, 2011/10/07 17:10:15
|
Line 147 DOES> ( -- r )
|
Line 147 DOES> ( -- r )
|
dup |
dup |
recognizer: r:fnumber |
recognizer: r:fnumber |
|
|
: fnum-recognizer ( addr u -- nt int-table true | addr u false ) |
: fnum-recognizer ( addr u -- float int-table | addr u r:fail ) |
2dup sfnumber dup |
2dup sfnumber |
IF |
IF |
drop 2drop r:fnumber true |
2drop r:fnumber EXIT |
THEN ; |
THEN |
|
r:fail ; |
|
|
' fnum-recognizer |
' fnum-recognizer |
forth-recognizer get-recognizers |
forth-recognizer get-recognizers |