From db69933ba6091723d34e8d1ca03782c4e3f58ee0 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 3 Jul 2020 10:31:01 -0700 Subject: [PATCH] decode paragraphs in expander, not reader (fixes #63) --- quad/quadwriter/markup.rkt | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/quad/quadwriter/markup.rkt b/quad/quadwriter/markup.rkt index 3bdfe191..c2e8fc6f 100644 --- a/quad/quadwriter/markup.rkt +++ b/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))))) \ No newline at end of file + (syntax->datum (quad-at-reader path-string ip)))))) \ No newline at end of file