R5RS macro

[62945]

kawa doesn't like the macro:

(define-syntax macro-chain
 (syntax-rules ()
  ((macro-chain . z)
    (letrec-syntax
     ((m1 (syntax-rules () ((m1 x) (id (m2 x)))))
      (m2 (syntax-rules () ((m2 x) (id (m3 x)))))
      (m3 (syntax-rules () ((m3 x) (quote x))))
      (id (syntax-rules () ((id x) x))))
     (m1 z)))))

it seems R5RS compliant, scheme48 and sisc accept it.
 
__________________________________________________________________________
Acabe com aquelas janelinhas que pulam na sua tela.
AntiPop-up UOL - É grátis!
http://antipopup.uol.com.br/