Fix extra -lst call that shouldn't be there.

2008-06-18 16:03:33 -04:00 · 2008-06-18 16:03:33 -04:00 · 6986b12618
commit 6986b12618
parent 5299c9fd5a
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-scheme/private/tc-lambda-unit.ss
+++ b/collects/typed-scheme/private/tc-lambda-unit.ss
@ -84,7 +84,7 @@
                            [(< arg-len tys-len) (-lst (list-ref arg-tys arg-len))]
                            [else (-lst (Un))])])
           (with-lexical-env/extend
-            (list rest) (list (-lst rest-type))
+            (list rest) (list rest-type)
            (check-body)))])))
    (syntax-case args ()
      [(args* ...)