why indeed

quad/quadwriter/markdown.rkt

@@ -23,9 +23,9 @@
   ;; markdown parser returns list of paragraphs
   (root null (match strs
                [(list str) strs]
-               [_ (add-between strs (list q:para-break)
-                               #:before-first (list q:para-break)
-                               #:after-last (list q:para-break)
+               [_ (add-between strs (list para-break)
+                               #:before-first (list para-break)
+                               #:after-last (list para-break)
                                #:splice? #true)])))
 (make-module-begin doc-proc)
 

quad/quadwriter/tags.rkt

@@ -116,7 +116,7 @@
                      (for*/list ([expr (in-list exprs)]
                                  [str (in-list (string-split (string-join (get-elements expr) "") "\n"))])
                        (list (get-tag expr) (get-attrs expr) (string-replace str " " " ")))
-                     q:line-break))
+                     line-break))
   (qexpr (append (list->attrs
                   :display "block"
                   :background-color "aliceblue"
@@ -144,7 +144,7 @@
           (for/list ([(expr idx) (in-indexed exprs)]
                      #:when (txexpr? expr))
             (list* (get-tag expr) (cons (list :list-index (or bullet-val (format "~a" (add1 idx)))) (get-attrs expr)) (get-elements expr)))
-          q:para-break)))
+          para-break)))
 
 (define bullet-quad '(q ((special "bullet"))))