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

fix parser combinator tests to work with str>number change

cvs
Chris Double 2005-08-24 00:01:39 +00:00
parent b6951b8afd
commit 15d30888d6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/parser-combinators/tests.factor
View File

@ -193,7 +193,7 @@ USING: kernel lazy parser-combinators test errors strings parser lists math sequ
: pdigit [ digit? ] satisfy [ digit> ] <@ ; : pdigit [ digit? ] satisfy [ digit> ] <@ ;
: pnatural pdigit <*> ; : pnatural pdigit <*> ;
: pnatural2 pnatural [ car [ >digit ] map >string dup pempty? [ drop 0 ] [ str>number ] ifte unit ] <@ ; : pnatural2 pnatural [ car [ >digit ] map >string dup pempty? [ drop 0 ] [ string>number ] ifte unit ] <@ ;
[ [
[ "" 12345 ] [ "" 12345 ]