suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Corrected arity error

Browse Source 
svn: r5740
This commit is contained in:
Kathy Gray 2007-03-06 16:46:55 +00:00
parent 7d4c8a053d
commit d34df833fb
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/combinator-parser/private-combinator/combinator.scm
View File

@ -153,7 +153,10 @@
[rsts (walker next-preds rest curr-pred curr [rsts (walker next-preds rest curr-pred curr
(or new-id curr-id) (cons curr-name seen) (or new-id curr-id) (cons curr-name seen)
(+ old-used used) alts (+ old-used used) alts
(make-src-lst (res-first-tok old-result)))]) (if src?
(make-src-lst (position-token-start (res-first-tok old-result))
(position-token-end (res-first-tok old-result)))
last-src))])
(cond (cond
[(and (res? rsts) (res-a rsts)) [(and (res? rsts) (res-a rsts))
(next-res old-answer new-id old-used tok rsts)] (next-res old-answer new-id old-used tok rsts)]