Unspecified value in macro expansion

[Takashi Kato]

This should prints (((mapper v1 (id1 id2)) id1 id2) ((mapper v2 (id1 id2)) id1 id2))

(import (rnrs))

(define-syntax clause-body
  (lambda (x)
    (define build-mapper
      (lambda (vars ids)
    (with-syntax ((vars vars) (ids ids))
              #'(mapper vars ids))))
    (syntax-case x ()
      ((_ (ids ...) (vs ...))
       (with-syntax (((mapper ...)
                      (map (lambda (formals)
                             (build-mapper formals #'(ids ...)))
               #'(vs ...))))
     (display (syntax->datum #'((mapper ids ...) ...))) (newline)
         #'((mapper ids ...) ...))))))

(clause-body (id1 id2) (v1 v2))

[Takashi Kato]

Smaller example

(import (rnrs))

(define-syntax clause-body
  (lambda (x)
    (syntax-case x ()
      ((_ (ids ...) (vs ...))
       #''((vs ids ...) ...)))))
(clause-body (id1 id2) (v1 v2))

[Takashi Kato]

Modified to adjust vars for nested multiple ellipsis issue (Fixes #48)

→ <<cset 8f477b6ee8c3>>