parse markdown strictly

5 years ago · cceec34df9
parent e7ab3ea53f
commit cceec34df9
1 changed files with 5 additions and 2 deletions
--- a/quad/quadwriter/markdown.rkt
+++ b/quad/quadwriter/markdown.rkt
@ -32,5 +32,8 @@
 (module reader racket/base
  (require racket/port markdown "lang-helper.rkt")
  (provide read-syntax get-info)
-  (define read-syntax (make-read-syntax 'quadwriter/markdown
-                                        (λ (path-string p) (xexpr->parse-tree (parse-markdown (port->string p)))))))
+  (define read-syntax
+    (make-read-syntax 'quadwriter/markdown
+                      (λ (path-string p) (xexpr->parse-tree
+                                          (parameterize ([current-strict-markdown? #true])
+                                            (parse-markdown (port->string p))))))))