From cf5516849630f6d28b59619e32e43bb2ff9c751c Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 19 Apr 2011 18:33:28 -0400 Subject: [PATCH] Use `in-hash' explicitly. (cherry picked from commit d459ad47b897fed0c106f78f357744c2558f7819) --- collects/typed-scheme/types/substitute.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/types/substitute.rkt b/collects/typed-scheme/types/substitute.rkt index e5fcc5abfc..3cedb1f2f9 100644 --- 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)]