add stringification to preproc parser

pull/9/head
Matthew Butterick 11 years ago
parent c24e3a73bf
commit ab0916ab55

@ -1,6 +1,6 @@
#lang racket #lang racket
(require "main-preproc-imports.rkt") (require "main-preproc-imports.rkt" "readability.rkt")
(provide (except-out (all-from-out racket) #%module-begin) (provide (except-out (all-from-out racket) #%module-begin)
(rename-out [module-begin #%module-begin])) (rename-out [module-begin #%module-begin]))
@ -26,7 +26,7 @@
(require 'pollen-inner) ; provides 'doc (require 'pollen-inner) ; provides 'doc
;; reduce text to simplest represetnation: a single ouput string ;; 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)) (provide text (all-from-out 'pollen-inner))
(module+ main (module+ main

Loading…
Cancel
Save