From 64554cef893aad3c5259fc20653200828d95be88 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 16 Oct 2013 22:35:22 -0700 Subject: [PATCH] print preproc results to repl --- main-preproc.rkt | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/main-preproc.rkt b/main-preproc.rkt index e6aeb0c..102f635 100644 --- a/main-preproc.rkt +++ b/main-preproc.rkt @@ -27,4 +27,10 @@ ;; reduce text to simplest represetnation: a single ouput string (define text (apply string-append (flatten (trim (->list doc) whitespace?)))) - (provide text (all-from-out 'pollen-inner)))) \ No newline at end of file + (provide text (all-from-out 'pollen-inner)) + + (module+ main + (displayln ";-------------------------") + (displayln (string-append "; pollen decoded 'text")) + (displayln ";-------------------------") + (display text))))