Fix handling of rest arg contracts.

svn: r9910
2008-05-20 20:42:57 +00:00 · 2008-05-20 20:42:57 +00:00 · c3c6131b9e
commit c3c6131b9e
parent e8123b83ec
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-scheme/private/type-contract.ss
+++ b/collects/typed-scheme/private/type-contract.ss
@ -95,7 +95,7 @@
                          [_ #`(values #,@rngs*)])]
                  [rst* rst])
               (if rst
-                   #'(dom* ...  #:rest (listof rst*) . -> . rng*)
+                   #'((dom* ...) () #:rest (listof rst*) . ->* . rng*)
                   #'(dom* ...  . -> . rng*))))
 	   (match (map f arrs)
 	     [(list e) e]