(pretty-print-with-comments (current-output-port) (list 'quasiquote "some-label" (list 'unquote 'some-symbol)))
(quasiquote "some-label"
            ,some-symbol)$11 = 25
scheme@(guile-user)> ;; I would have expected `("some-label ,some-symbol)