Welcome to the CHICKEN Scheme pasting service

(define-syntax my-append
  (ir-macro-transformer
    (lambda (e i c)
      (string-append
        "["
        (string-concatenate
          (map
            (lambda (sym)
              (string-append
                (symbol->string (strip-syntax sym))
                ", "))
            (if (null? e)
              '() (cdr (butlast e)))))
        (symbol->string (strip-syntax (last e)))
        "]"))))

(define-syntax call
  (syntax-rules ()
    ((_ name ...)
     ((my-append name ...)
      name ...))))

,x (call a b c d)
; Expands to ((my-append a b c d) a b c d)
; instead of ("[ a, b, c, d ]" a b c d)