diff --git a/quad/quadwriter/render.rkt b/quad/quadwriter/render.rkt index d745aee1..3c171a84 100644 --- a/quad/quadwriter/render.rkt +++ b/quad/quadwriter/render.rkt @@ -179,7 +179,7 @@ #:txexpr-proc smart-quotes)]) (match qx [(txexpr tag attrs elements) - ;; we insert a dummy element "." + ;; we insert a dummy quad '(q ".") ;; (could be anything, but we want to use something obvious ;; so we don't trigger a fallback font) ;; to get a sample of the global attrs @@ -187,7 +187,7 @@ ;; but keep the attrs around in case anyone needs to use them ;; for instance, quads added to the layout like footers ;; won't have another way of getting this - (list* tag attrs (cons "." elements))]))) + (list* tag attrs (cons '(q ".") elements))]))) ;; apply some default styling attributes. ;; These will only be used if the underlying q-expression hasn't specified its own values,