From 0c5e850f36e3376a3d6576a65428672676a7b41b Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 21 Feb 2014 14:37:23 -0800 Subject: [PATCH] working again --- main.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/main.rkt b/main.rkt index b3ec0d1..701b164 100644 --- a/main.rkt +++ b/main.rkt @@ -36,7 +36,7 @@ (require 'inner) ;; Split out the metas. - (require txexpr) + (require txexpr/fast) (define (split-metas-to-hash tx) ;; return tx without metas, and meta hash (define is-meta-element? (λ(x) (and (txexpr? x) (equal? 'meta (car x))))) @@ -59,8 +59,8 @@ (define here-ext (car (regexp-match #px"\\w+$" inner-here-path))) (define wants-decoder? (member here-ext (map to-string DECODABLE_EXTENSIONS))) (define main (apply (cond - [(equal? here-ext "ptree") (λ xs (decode (cons 'ptree-root xs) - #:xexpr-elements-proc (λ(xs) (filter-not whitespace? xs))))] + [(equal? here-ext "ptree") (λ xs (decode (cons PTREE_ROOT_NODE xs) + #:xexpr-elements-proc (λ(xs) (filter (compose1 not (bound/c whitespace?)) xs))))] ;; 'root is the hook for the decoder function. ;; If it's not a defined identifier, it just hits #%top and becomes `(root ,@body ...) [wants-decoder? root]