don't add auto line breaks (fixes #64)

4 years ago · 7469550947
parent 3076614787
commit 7469550947
1 changed files with 1 additions and 5 deletions
--- a/quad/quadwriter/markup.rkt
+++ b/quad/quadwriter/markup.rkt
@ -8,11 +8,7 @@
         q)

 (make-module-begin
- (λ (exprs)
-   (doc-proc
-    (decode-paragraphs exprs
-                       #:force? #true
-                       #:linebreak-proc (λ (x) (decode-linebreaks x '(line-break)))))))
+ (λ (exprs) (doc-proc (decode-paragraphs exprs #:force? #true))))

 (module reader racket/base
  (require "lang-helper.rkt")