tutorial render bug (fixes #61)

quad/qtest/test-fancy-sauce.rkt

@@ -0,0 +1,10 @@
+#lang racket
+(require quadwriter)
+
+(define doc 
+  '(q
+    (q "Brennan likes fancy sauce.")
+    (para-break)
+    (q "Dale hates fancy sauce.")))
+
+(provide doc)

quad/quadwriter/render.rkt

@@ -8,6 +8,7 @@
          racket/dict
          pitfall
          quad
+         (only-in txexpr txexpr) ; matcher
          hyphenate
          pollen/decode
          sugar/coerce
@@ -177,7 +178,7 @@
                         #:string-proc (compose1 smart-ellipses smart-dashes)
                         #:txexpr-proc smart-quotes)])
       (match qx
-        [(list tag attrs elements ...)
+        [(txexpr tag attrs elements)
          ;; we insert a dummy element "."
          ;; (could be anything, but we want to use something obvious
          ;; so we don't trigger a fallback font)