This makes the change mentioned in the log message for r10735 (the previous
revision). So what we'll get here is the following: Dotted + Dotted = Dotted (from the first case) Dotted + x = x (since x refers to a free use of the dotted var) x + Dotted = x (same) I think this is correct.
This commit is contained in:
parent
f3eb315425
commit
9f6427ac34
|
@ -42,9 +42,8 @@
|
|||
(define (combine-var v w)
|
||||
(cond
|
||||
[(eq? v w) v]
|
||||
[(or (eq? v Dotted) (eq? w Dotted))
|
||||
Invariant
|
||||
#;(int-err "Cannot combine Dotted w/ not Dotted: ~a ~a" v w)]
|
||||
[(eq? v Dotted) w]
|
||||
[(eq? w Dotted) v]
|
||||
[(eq? v Constant) w]
|
||||
[(eq? w Constant) v]
|
||||
[else Invariant]))
|
||||
|
|
Loading…
Reference in New Issue
Block a user