Hey all,
I'm trying to use 'local-expand', however it seems to think its never in a
definition context. For example:
(require (for-syntax syntax/parse))
(define-syntax (test stx)
(syntax-parse stx
[(_ e)
(define ctx
(if (list? (syntax-local-context))
(cons (gensym) (syntax-local-context))
(list (gensym))))
(local-expand
#'e ctx null
;; result is the same with this uncommented
#;(syntax-local-make-definition-context))]))
(let ()
(test (define x 1))
x)
errors with a "define-values: not in a definition context in:
(define-values (x) 1)"
Can anyone provide any insight into what is going on?
--spf
____________________
Racket Users list:
http://lists.racket-lang.org/users
