Error in macroexpand

[jcubic]

With macro:

(define-macro (define-symbol-macro . rest)
  "(define-symbol-macro (name . args) . body)
   
   Macro that creates special symbol macro for evaluator similar to build in , or `.
   It's like alias for real macro. Similar to CL reader macros but it receive already
   parsed code like normal macros."
   ;; this is executed in two different ways one when there are no macro and the other
   ;; if there is macro defined, in second case it will put list as first element
   ;; of the body even is it's called like this (define-symbol-macro (# code) 
   (let* ((def (if (pair? (car rest)) (caar rest) (car rest)))
          (symbol (car def))
          (code (cdr rest)))
     `(begin (add-special! ',symbol) (define-macro ,def ,@code))))

code:

 (macroexpand (define-symbol-macro (# arg) `(list->array (list ,@arg))))

output:

(begin
  (add-special! (quote list->array (quote )))
  (define-macro (list->array (quote list))
    (quasiquote (list->array (quote (unquote list))))
    ))

[jcubic]

Current result:

lips> (macroexpand (define-symbol-macro (# arg) `(list->array (list ,@arg))))
(let* ((def (if (pair? (car rest))
                (caar rest)
                (car rest)))
       (symbol (car def)) (code (cdr rest)))
  (quasiquote (begin
                (add-special! (quote (unquote symbol)))
                (define-macro (unquote def)
                  (unquote-splicing code)
                  ))))

[jcubic]

There is also fix in formatter the updated code look like this:

(let* ((def (if (pair? (car rest))
                (caar rest)
                (car rest)))
       (symbol (car def)) (code (cdr rest)))
  (quasiquote (begin
                (add-special! (quote (unquote symbol)))
                (define-macro (unquote def)
                  (unquote-splicing code)))))