suppress pretty newline

7 years ago · 302bf74af1
parent 502ff743e1
commit 302bf74af1
2 changed files with 5 additions and 4 deletions
--- a/pollen/private/runtime-config.rkt
+++ b/pollen/private/runtime-config.rkt
@ -13,7 +13,8 @@
      (if (memq parser-mode (list default-mode-preproc default-mode-template))
          (display doc)
          ;; OK to use dynamic-require because runtime-config itself is dynamic-required
-          (pretty-print (with-handlers ([exn:fail? (λ (exn) ((error '|pollen markup error|
+          (pretty-print #:newline? #f
+                        (with-handlers ([exn:fail? (λ (exn) ((error '|pollen markup error|
                                                                    ((dynamic-require 'racket/string 'string-join) (cdr ((dynamic-require 'racket/string 'string-split) (exn-message exn) ": ")) ": "))))])
                          ((dynamic-require 'txexpr/base 'validate-txexpr) doc)))))))

--- a/pollen/private/ts.rktd
+++ b/pollen/private/ts.rktd
@ -1 +1 @@
-1512066415
+1512068265