Bug fix

svn: r5860
2007-04-03 22:24:20 +00:00 · 2007-04-03 22:24:20 +00:00 · c68372b552
commit c68372b552
parent b143159074
1 changed files with 1 additions and 1 deletions
--- a/collects/combinator-parser/private-combinator/combinator.scm
+++ b/collects/combinator-parser/private-combinator/combinator.scm
@ -107,7 +107,7 @@
                               (res-first-tok (repeat-res-a r)))]))]
               [my-error (sequence-error-gen name sequence-length)]
               [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)
            (cond
              [(eq? input return-name) name]