I have a code that looks like this:
(emit-local-step #'func.name
(internal-definition-context-apply/loc defs #'func.name) #:id
#'defun)
(let ([defs (syntax-local-make-definition-context defs)]
[ctx (build-expand-context ctx)]
[args (parse-arg-names #'func.args)])
(syntax-local-bind-syntaxes args #f defs)
(internal-definition-context-seal defs)
(with-syntax*
([f-name (internal-definition-context-apply/loc defs #'func.name)])
(emit-local-step #'func.name #'f-name #:id #'defun2)))
Contrary to
http://docs.racket-lang.org/reference/stxtrans.html#%28def._%28%28quote._~23~25kernel%29._syntax-local-make-definition-context%29%29
"the new internal-definition context can use bindings previously introduced
into intdef-ctx."
The first emit-local-step shows a properly introduced binding, the second does
not.
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
