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)))
        "]"))))