On Tue, 19 Apr 2011, Andre van Tonder wrote:

> (module (A)
>   ...
>   (define counter (let ((n 0)) (lambda () (set! n (+ n 1)) n)))
>   (define-syntax counter-macro (syntax-rules () ((_) (counter))))
>
> (module (B)
>   (import (only (A) counter counter-macro))
>   (write (counter-macro))
>   (write (counter)))

By the way, sorry, this example wasn't doing what I was trying to show.  But
please see the MATCH example in my other post.

_______________________________________________
Scheme-reports mailing list
Scheme-reports@scheme-reports.org
http://lists.scheme-reports.org/cgi-bin/mailman/listinfo/scheme-reports