From ab0916ab559d60fae6bb3e8187cbb249a4cdc59a Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 7 Jan 2014 23:33:14 -0800 Subject: [PATCH] add stringification to preproc parser --- main-preproc.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/main-preproc.rkt b/main-preproc.rkt index bb46e83..878f67e 100644 --- a/main-preproc.rkt +++ b/main-preproc.rkt @@ -1,6 +1,6 @@ #lang racket -(require "main-preproc-imports.rkt") +(require "main-preproc-imports.rkt" "readability.rkt") (provide (except-out (all-from-out racket) #%module-begin) (rename-out [module-begin #%module-begin])) @@ -26,7 +26,7 @@ (require 'pollen-inner) ; provides 'doc ;; reduce text to simplest represetnation: a single ouput string - (define text (apply string-append (flatten (trim (->list doc) whitespace?)))) + (define text (apply string-append (map ->string (flatten (trim (->list doc) whitespace?))))) (provide text (all-from-out 'pollen-inner)) (module+ main