That's an interesting idea, which would work nicely in some cases. (For instance, I like how (svgpage) looks, but not how (repeat 20) looks.) Here's an implementation (lightly tested):
(mac block body
(if (or (no body) (~cdr body))
(carif body)
(join (car body) (list `(block ,@(cdr body))))))
