module-environment use with macros

[Caolan McMahon]

Given the following module example.scm:

(module example *

(import chicken scheme)

(define (add a b) (+ a b))

(define-syntax double
  (syntax-rules ()
    ((_ x) (add x x))))

)

Then, using it as an eval environment:

(load "./example.scm")
(import example)

(print (eval '(double 10) (module-environment 'example)))

I get:

Error: unbound variable: add43

Using the macro directly it appears to work:

(load "./example.scm")
(import example)

(print (double 10))

It now prints 20, as expected.

Is this a problem with module-environment, or am I using it incorrectly?

[sjamaan]

This looks like a bug, but I'll have to look closer when I have more time

[Caolan McMahon]

Just in case anyone else runs into this issue, I'm working around it by using er-macro-transformer instead of syntax-rules:

(define-syntax double
  (er-macro-transformer
    (lambda (exp rename compare)
      (list (rename 'add) (cadr exp) (cadr exp)))))