mbutterick
/
pollen
3
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

suppress pretty newline

Browse Source
pull/160/head
Matthew Butterick 7 years ago
parent 502ff743e1
commit 302bf74af1
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File

7
pollen/private/runtime-config.rkt
Unescape Escape View File

@ -13,9 +13,10 @@
(if (memq parser-mode (list default-mode-preproc default-mode-template)) (if (memq parser-mode (list default-mode-preproc default-mode-template))
(display doc) (display doc)
;; OK to use dynamic-require because runtime-config itself is dynamic-required ;; 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
((dynamic-require 'racket/string 'string-join) (cdr ((dynamic-require 'racket/string 'string-split) (exn-message exn) ": ")) ": "))))]) (with-handlers ([exn:fail? (λ (exn) ((error '|pollen markup error|
((dynamic-require 'txexpr/base 'validate-txexpr) doc))))))) ((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) (define (configure top-here-path)
(current-top-path top-here-path) ;; puts `show` into the right mode (current-top-path top-here-path) ;; puts `show` into the right mode

2
pollen/private/ts.rktd
Unescape Escape View File

@ -1 +1 @@
1512066415 1512068265

Write Preview
Loading…
Cancel
Save