From d34df833fbd7fbdfc8c6f8b5e18516aa56a782df Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Tue, 6 Mar 2007 16:46:55 +0000 Subject: [PATCH] Corrected arity error svn: r5740 --- collects/combinator-parser/private-combinator/combinator.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/combinator-parser/private-combinator/combinator.scm b/collects/combinator-parser/private-combinator/combinator.scm index c68ddcf791..a7119839e2 100644 --- a/collects/combinator-parser/private-combinator/combinator.scm +++ b/collects/combinator-parser/private-combinator/combinator.scm @@ -153,7 +153,10 @@ [rsts (walker next-preds rest curr-pred curr (or new-id curr-id) (cons curr-name seen) (+ 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 [(and (res? rsts) (res-a rsts)) (next-res old-answer new-id old-used tok rsts)]