From f44877bf4be8df91965ca6fe905bf1eb58541d60 Mon Sep 17 00:00:00 2001 From: frogbird Date: Thu, 28 May 2020 14:06:50 -0500 Subject: [PATCH] added in-list --- racket/collects/racket/private/class-c-old.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/collects/racket/private/class-c-old.rkt b/racket/collects/racket/private/class-c-old.rkt index 078a72a4c0..d60fc12fe6 100644 --- a/racket/collects/racket/private/class-c-old.rkt +++ b/racket/collects/racket/private/class-c-old.rkt @@ -1540,11 +1540,11 @@ (fail '(expected: "an object" given: "~e") obj)) (let ([cls (object-ref/unwrap obj)]) (let ([method-ht (class-method-ht cls)]) - (for ([m methods]) + (for ([m (in-list methods)]) (unless (hash-ref method-ht m #f) (fail "no public method ~a" m)))) (let ([field-ht (class-field-ht cls)]) - (for ([m fields]) + (for ([m (in-list fields)]) (unless (hash-ref field-ht m #f) (fail "no public field ~a" m))))) #t)