Use built-in digits>integer word

2007-11-15 04:40:35 -05:00 · 2007-11-15 04:40:35 -05:00 · 90029a312b
parent 72ea94384d
commit 90029a312b
1 changed files with 1 additions and 1 deletions
--- a/extra/parser-combinators/simple/simple.factor
+++ b/extra/parser-combinators/simple/simple.factor
@ -11,7 +11,7 @@ LAZY: 'any-char' ( -- parser )
  [ digit? ] satisfy [ digit> ] <@ ;

 : 'integer' ( -- parser )
-  'digit' <!+> [ 0 [ swap 10 * + ] reduce ] <@ ;
+  'digit' <!+> [ 10 swap digits>integer ] <@ ;

 : 'string' ( -- parser )
  [ CHAR: " = ] satisfy