Use `in-hash' explicitly.

(cherry picked from commit d459ad47b8)
2011-04-19 18:33:28 -04:00 · 2011-04-19 18:33:28 -04:00 · cf55168496
commit cf55168496
parent de002b69e3
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-scheme/types/substitute.rkt
+++ b/collects/typed-scheme/types/substitute.rkt
@ -142,7 +142,7 @@
 ;; subst-all : substitution Type -> Type
 (d/c (subst-all s t)
  (substitution/c Type? . -> . Type?)
-  (for/fold ([t t]) ([(v r) s])
+  (for/fold ([t t]) ([(v r) (in-hash s)])
    (match r
      [(t-subst img)
       (substitute img v t)]