peg: replace uses of digits>integer with string>number.

basis/peg/parsers/parsers.factor

@@ -71,7 +71,7 @@ PRIVATE>
     [ digit? ] satisfy [ digit> ] action ;
 
 : 'integer' ( -- parser )
-    'digit' repeat1 [ 10 digits>integer ] action ;
+    [ digit? ] satisfy repeat1 [ string>number ] action ;
 
 : 'string' ( -- parser )
     [

extra/parser-combinators/simple/simple.factor

@@ -8,7 +8,7 @@ IN: parser-combinators.simple
   [ digit? ] satisfy [ digit> ] <@ ;
 
 : 'integer' ( -- parser )
-  'digit' <!+> [ 10 digits>integer ] <@ ;
+  [ digit? ] satisfy <*> [ string>number ] <@ ;
 
 : 'string' ( -- parser )
   [ CHAR: " = ] satisfy

extra/peg/expr/expr.factor

@@ -5,8 +5,7 @@ peg peg.ebnf peg.parsers memoize math accessors ;
 IN: peg.expr
 
 EBNF: expr 
-digit    = [0-9]            => [[ digit> ]]
+number   = ([0-9])+         => [[ string>number ]]
-number   = (digit)+         => [[ 10 digits>integer ]]
 value    =   number 
            | ("(" exp ")")  => [[ second ]]
 

extra/peg/pl0/pl0.factor

@@ -22,7 +22,6 @@ expression  = {"+" | "-"}? term { {"+" | "-"} term }*
 term        = factor { {"*" | "/"} factor }*
 factor      = ident | number | "(" expression ")"
 ident       = (([a-zA-Z])+)   => [[ >string ]]
-digit       = ([0-9])         => [[ digit> ]]
+number      = ([0-9])+        => [[ string>number ]]
-number      = (digit)+        => [[ 10 digits>integer ]]
 program     = { block "." }
 ;EBNF