We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
when-expression-in-for-loop-to-when-keyword
1 parent e0bec7d commit d67bce1Copy full SHA for d67bce1
typed-racket-lib/typed-racket/types/classes.rkt
@@ -88,9 +88,9 @@
88
(match-define (Row: inits fields methods augments _) row)
89
;; check a given clause type (e.g., init, field)
90
(define (check-clauses row-dict absence-set)
91
- (for ([(name _) (in-dict row-dict)])
92
- (when (member name absence-set)
93
- (fail name))))
+ (for ([(name _) (in-dict row-dict)]
+ #:when (member name absence-set))
+ (fail name)))
94
(check-clauses inits init-absents)
95
(check-clauses fields field-absents)
96
(check-clauses methods method-absents)
0 commit comments