decode paragraphs in expander, not reader (fixes #63)

quad/quadwriter/markup.rkt

@@ -1,20 +1,19 @@
 #lang debug racket/base
 (require "lang-helper.rkt"
          "tags.rkt"
+         pollen/decode
          (only-in "markdown.rkt" doc-proc))
 (provide #%top #%datum #%app #%top-interaction
          (all-from-out "tags.rkt")
          q)
 
-(make-module-begin doc-proc)
+(make-module-begin (λ (exprs) (doc-proc (decode-paragraphs exprs #:force? #true))))
 
 (module reader racket/base
-  (require "lang-helper.rkt" pollen/decode)
+  (require "lang-helper.rkt")
   (provide read-syntax get-info)
   (define get-info get-info-texty)
   (define read-syntax
     (make-read-syntax 'quadwriter/markup
                       (λ (path-string ip)
-                        (decode-paragraphs
-                         (syntax->datum (quad-at-reader path-string ip))
-                         #:force? #true)))))
+                        (syntax->datum (quad-at-reader path-string ip))))))