Fix the fix to type queries.

Should have been included in the original commit.
2014-09-10 14:30:22 -04:00 · 2014-09-10 14:30:22 -04:00 · 5d6ecd7754
commit 5d6ecd7754
parent 08178c1ec2
1 changed files with 4 additions and 1 deletions
--- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-app-helper.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-app-helper.rkt
@ -325,7 +325,10 @@
  (match t
    ;; function type, prune if possible.
    [(Function/arrs: doms rngs rests drests kws)
-     (match-let ([(list pdoms rngs rests drests) (possible-domains doms rests drests rngs (and expected (ret expected)))])
+     (match-let ([(list pdoms rngs rests drests)
+                  (possible-domains doms rests drests rngs
+                                    (and expected (ret expected))
+                                    permissive?)])
       (if (= (length pdoms) (length doms))
           ;; pruning didn't improve things, return the original
           ;; (Note: pruning may have reordered clauses, so may not be `equal?' to