If there are extra effects, let them be.
This commit is contained in:
parent
8599321b57
commit
6a607be6a9
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user