Updates along useless paths are not errors.

This commit is contained in:
Sam Tobin-Hochstadt 2010-05-12 18:24:19 -04:00
parent 41f0152435
commit 4ceda99700

View File

@ -60,7 +60,9 @@
[((Union: ts) lo) [((Union: ts) lo)
(apply Un (map (lambda (t) (update t lo)) ts))] (apply Un (map (lambda (t) (update t lo)) ts))]
[(t* lo) [(t* lo)
(int-err "update along ill-typed path: ~a ~a ~a" t t* lo)])) #;
(int-err "update along ill-typed path: ~a ~a ~a" t t* lo)
t]))
;; sets the flag box to #f if anything becomes (U) ;; sets the flag box to #f if anything becomes (U)
(d/c (env+ env fs flag) (d/c (env+ env fs flag)