On Friday, March 10, 2017 at 10:43:25 AM UTC-8, Stephen Chang wrote:
>
> (define-provide-syntax my-out
> (syntax-parser
> [(_ name:id)
> #:with mk-name (format-id #'name "make-~a" #'name)
> #'(combine-out name mk-name)]))
>
That does it. I guess define-provide-syntax *is* up to t
combine-out may help simplify things?
(define-syntax my-out
(make-provide-transformer
(lambda (stx modes)
(syntax-parse stx
((_ name:id)
#:with mk-name (format-id #'name "make-~a" #'name)
(expand-export #'(combine-out name mk-name) modes))
or
(define-provide-
Hi -
I'd like to create a new provide syntax that essentially turns this:
(provide (my-out name))
into this:
(provide name make-name)
where 'name' and 'make-name' are defined in the surrounding context. It looks
like define-provide-syntax isn't up to the task, so I used
'make-provide-tr
3 matches
Mail list logo