Skip to content

Commit 022742c

Browse files
Fix 1 occurrence of map-to-for
This `map` operation can be replaced with a `for/list` loop.
1 parent 1688a4c commit 022742c

File tree

1 file changed

+2
-6
lines changed

1 file changed

+2
-6
lines changed

typed-racket-lib/typed-racket/base-env/unit-prims.rkt

Lines changed: 2 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -133,12 +133,8 @@
133133
;; in the signature, this is needed to typecheck define-values/invoke-unit forms
134134
(define-for-syntax (imports/members sig-id)
135135
(define-values (_1 imp-mem _2 _3) (signature-members sig-id sig-id))
136-
#`(#,sig-id #,@(map (lambda (id)
137-
(local-expand
138-
id
139-
(syntax-local-context)
140-
(kernel-form-identifier-list)))
141-
imp-mem)))
136+
#`(#,sig-id #,@(for/list ([id (in-list imp-mem)])
137+
(local-expand id (syntax-local-context) (kernel-form-identifier-list)))))
142138

143139
;; Given a list of signature specs
144140
;; Processes each signature spec to determine the variables exported

0 commit comments

Comments
 (0)