Re: macro expand in a specified module

[Keisuke Nishida]

At Sat, 10 Mar 2001 03:35:31 -0500,
Keisuke Nishida wrote:
> 
>   (define (expand e m)
>     (cond
>      ((pair? e) (let* ((a (car e))
>                      (val (and (symbol? a) (module-ref m a))))
>                 (if (defmacro? val)
>                     (expand (apply (defmacro-transformer val) (cdr e)) m)
>                     e)))
>      (#t e)))

Bug fixed.

(define (expand x e)
  (if (pair? x)
      (let* ((s (car x))
             (v (and (symbol? s) (module-defined? e s) (module-ref e s))))
        (if (defmacro? v)
            (expand (apply (defmacro-transformer v) (cdr x)) e)
            (cons (expand (car x) e) (expand (cdr x) e))))
      x))

> May I add this to ice-9.scm?  I think this procedure looks good
> because it is symmetry to eval.

I mean boot-9.scm.

Kei