suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updates along useless paths are not errors.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-05-12 18:24:19 -04:00
parent 41f0152435
commit 4ceda99700
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/typed-scheme/typecheck/tc-envops.rkt
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)