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.
map-to-for
1 parent 1688a4c commit 022742cCopy full SHA for 022742c
typed-racket-lib/typed-racket/base-env/unit-prims.rkt
@@ -133,12 +133,8 @@
133
;; in the signature, this is needed to typecheck define-values/invoke-unit forms
134
(define-for-syntax (imports/members sig-id)
135
(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)))
+ #`(#,sig-id #,@(for/list ([id (in-list imp-mem)])
+ (local-expand id (syntax-local-context) (kernel-form-identifier-list)))))
142
143
;; Given a list of signature specs
144
;; Processes each signature spec to determine the variables exported
0 commit comments