Use `in-hash' explicitly.

original commit: d459ad47b897fed0c106f78f357744c2558f7819
2011-04-19 18:33:28 -04:00 · 2011-04-19 18:33:28 -04:00 · 01a6586f73
commit 01a6586f73
parent 172d85f97d
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)]