diff options
-rw-r--r-- | who.tl | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -168,7 +168,7 @@ (ncon [process-tag element tree-to-template])) (@(consp) ;; list - insert as sexp - (add ^(let ((*indent* , *indent*)) ,element))) + (add ^(expander-let ((*indent* , *indent*)) ,element))) ;; something else - insert verbatim (@else (add else)))))) @@ -229,7 +229,7 @@ . body) ^(let ((,var ,(or stream var))) (macrolet ((htm (. body) - ^(with-html-output (,',var nil :prologue nil :indent ,,indent) + ^(with-html-output (,',var nil :prologue nil) ,*body)) (fmt (. args) ^(format ,',var ,*args)) |