steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use built-in digits>integer word

release
Slava Pestov 2007-11-15 04:40:35 -05:00
parent 72ea94384d
commit 90029a312b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/parser-combinators/simple/simple.factor
View File

@ -11,7 +11,7 @@ LAZY: 'any-char' ( -- parser )
[ digit? ] satisfy [ digit> ] <@ ; [ digit? ] satisfy [ digit> ] <@ ;
: 'integer' ( -- parser ) : 'integer' ( -- parser )
'digit' <!+> [ 0 [ swap 10 * + ] reduce ] <@ ; 'digit' <!+> [ 10 swap digits>integer ] <@ ;
: 'string' ( -- parser ) : 'string' ( -- parser )
[ CHAR: " = ] satisfy [ CHAR: " = ] satisfy