If there are extra effects, let them be.

This commit is contained in:
Sam Tobin-Hochstadt 2008-07-07 17:15:43 -04:00
parent 8599321b57
commit 6a607be6a9

View File

@ -105,7 +105,7 @@
[(_ _) (fail! t s)]))
(define (cgen/eff/list V X ts ss)
(unless (= (length ts) (length ss)) (fail! ts ss))
(unless (>= (length ts) (length ss)) (fail! ts ss))
(cset-meet* (for/list ([t ts] [s ss]) (cgen/eff V X t s))))
(define (cgen/arr V X t-arr s-arr)