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

Bug fix

Browse Source 
svn: r5860
This commit is contained in:
Kathy Gray 2007-04-03 22:24:20 +00:00
parent b143159074
commit c68372b552
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -107,7 +107,7 @@
(res-first-tok (repeat-res-a r)))]))] (res-first-tok (repeat-res-a r)))]))]
[my-error (sequence-error-gen name sequence-length)] [my-error (sequence-error-gen name sequence-length)]
[my-walker (seq-walker id-position name my-error)]) [my-walker (seq-walker id-position name my-error)])
(opt-lambda (input [alts 1] [last-src (list 0 0 0 0)]) (opt-lambda (input [last-src (list 0 0 0 0)] [alts 1])
#;(printf "seq ~a~n" name) #;(printf "seq ~a~n" name)
(cond (cond
[(eq? input return-name) name] [(eq? input return-name) name]