Added required values declaration

svn: r6491
2007-06-05 22:27:08 +00:00 · 2007-06-05 22:27:08 +00:00 · 4a5a34fc89
commit 4a5a34fc89
parent de099d4eea
1 changed files with 1 additions and 1 deletions
--- 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)