From 302bf74af16c75ba02eef2829a45903a999fbdf6 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 30 Nov 2017 10:57:45 -0800 Subject: [PATCH] suppress pretty newline --- pollen/private/runtime-config.rkt | 7 ++++--- pollen/private/ts.rktd | 2 +- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/pollen/private/runtime-config.rkt b/pollen/private/runtime-config.rkt index 3d91cfd..15ca6f1 100644 --- a/pollen/private/runtime-config.rkt +++ b/pollen/private/runtime-config.rkt @@ -13,9 +13,10 @@ (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| - ((dynamic-require 'racket/string 'string-join) (cdr ((dynamic-require 'racket/string 'string-split) (exn-message exn) ": ")) ": "))))]) - ((dynamic-require 'txexpr/base 'validate-txexpr) doc))))))) + (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))))))) (define (configure top-here-path) (current-top-path top-here-path) ;; puts `show` into the right mode diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 6c7a121..393a9d5 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1512066415 +1512068265