From 502ff743e19a7a72dcbe820e5c5ea09ff292d8b3 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 30 Nov 2017 10:26:55 -0800 Subject: [PATCH] pretty printing --- pollen/private/runtime-config.rkt | 4 ++-- pollen/private/ts.rktd | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/pollen/private/runtime-config.rkt b/pollen/private/runtime-config.rkt index 770800f..3d91cfd 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) +(require pollen/setup scribble/reader racket/pretty) (provide (all-defined-out)) (define current-top-path (make-parameter #f)) @@ -13,7 +13,7 @@ (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 - (print (with-handlers ([exn:fail? (λ (exn) ((error '|pollen markup error| + (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))))))) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index f6ef09d..6c7a121 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1512066410 +1512066415