(define-macro (better-append . args)
; (log-info args)
`(if (list? ,(car args))
(begin
; (log-info "it's a list")
(oldappend ,@args))
(begin
; (log-info "not a list")
(oldappend (list ,(car args)) ,@(cdr args)))))