From c68372b552391b9b3a6453815bd93e9899ba319d Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Tue, 3 Apr 2007 22:24:20 +0000 Subject: [PATCH] Bug fix svn: r5860 --- collects/combinator-parser/private-combinator/combinator.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/combinator-parser/private-combinator/combinator.scm b/collects/combinator-parser/private-combinator/combinator.scm index 8ceb7790d6..327c32b645 100644 --- 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]