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

Use `in-hash' explicitly.

Browse Source 
(cherry picked from commit d459ad47b8)
This commit is contained in:
Sam Tobin-Hochstadt 2011-04-19 18:33:28 -04:00 committed by Eli Barzilay
parent de002b69e3
commit cf55168496
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-scheme/types/substitute.rkt
View File

@ -142,7 +142,7 @@
;; subst-all : substitution Type -> Type ;; subst-all : substitution Type -> Type
(d/c (subst-all s t) (d/c (subst-all s t)
(substitution/c Type? . -> . Type?) (substitution/c Type? . -> . Type?)
(for/fold ([t t]) ([(v r) s]) (for/fold ([t t]) ([(v r) (in-hash s)])
(match r (match r
[(t-subst img) [(t-subst img)
(substitute img v t)] (substitute img v t)]