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

added in-list

Browse Source
This commit is contained in:
frogbird 2020-05-28 14:06:50 -05:00 committed by Robby Findler
parent 2cca55c38b
commit f44877bf4b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/racket/private/class-c-old.rkt
View File

@ -1540,11 +1540,11 @@
(fail '(expected: "an object" given: "~e") obj)) (fail '(expected: "an object" given: "~e") obj))
(let ([cls (object-ref/unwrap obj)]) (let ([cls (object-ref/unwrap obj)])
(let ([method-ht (class-method-ht cls)]) (let ([method-ht (class-method-ht cls)])
(for ([m methods]) (for ([m (in-list methods)])
(unless (hash-ref method-ht m #f) (unless (hash-ref method-ht m #f)
(fail "no public method ~a" m)))) (fail "no public method ~a" m))))
(let ([field-ht (class-field-ht cls)]) (let ([field-ht (class-field-ht cls)])
(for ([m fields]) (for ([m (in-list fields)])
(unless (hash-ref field-ht m #f) (unless (hash-ref field-ht m #f)
(fail "no public field ~a" m))))) (fail "no public field ~a" m)))))
#t) #t)