From 4a5a34fc891203279c8213b741581364a95bf60d Mon Sep 17 00:00:00 2001
From: Kathy Gray <kathryn.gray@cl.cam.ac.uk>
Date: Tue, 5 Jun 2007 22:27:08 +0000
Subject: [PATCH] Added required values declaration

svn: r6491
---
 .../combinator-parser/private-combinator/combinator-parser.scm  | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/combinator-parser/private-combinator/combinator-parser.scm b/collects/combinator-parser/private-combinator/combinator-parser.scm
index 4c2412d02b..51f28f403e 100644
--- a/collects/combinator-parser/private-combinator/combinator-parser.scm
+++ b/collects/combinator-parser/private-combinator/combinator-parser.scm
@@ -83,7 +83,7 @@
     (define (rank-choice choices) (apply max choices))
     (define-values 
       (rank-misspell rank-caps rank-class rank-wrong rank-end)
-      (4/5 9/10 2/5 1/5 2/5)))
+      (values 4/5 9/10 2/5 1/5 2/5)))
   
   (define-unit out-struct@
     (import)