diff --git a/pollen/private/runtime-config.rkt b/pollen/private/runtime-config.rkt index 15ca6f1..3ddb988 100644 --- a/pollen/private/runtime-config.rkt +++ b/pollen/private/runtime-config.rkt @@ -1,5 +1,5 @@ #lang racket/base -(require pollen/setup scribble/reader racket/pretty) +(require pollen/setup scribble/reader racket/pretty version/utils racket/port racket/string) (provide (all-defined-out)) (define current-top-path (make-parameter #f)) @@ -12,11 +12,15 @@ (when (and ctp (equal? here-path ctp)) (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 #: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))))))) + ;; #:newline option for `pretty-print` was introduced in 6.6.0.3, + ;; so trim trailing newline manually + (let ([pretty-print-proc (if (version