From dae519a907a7d992ce8dba476812953c5717a97d Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 18 Aug 2013 13:11:23 -0700 Subject: [PATCH] changed test from ends-with? to has-ext? --- main.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/main.rkt b/main.rkt index 6f82b2c..0629c04 100644 --- a/main.rkt +++ b/main.rkt @@ -2,6 +2,7 @@ (require racket/list) (require (planet mb/pollen/tools) (planet mb/pollen/main-helper)) (require (only-in (planet mb/pollen/pmap) pmap-decode)) +(require (only-in (planet mb/pollen/pollen-file-tools) has-ext?)) (require (only-in (planet mb/pollen/world) POLLEN_MAP_EXT)) (provide (except-out (all-from-out racket/base) #%module-begin) (rename-out [module-begin #%module-begin])) @@ -65,7 +66,7 @@ ;; One of the annoyances of Scribble is its insistence on decoding. ;; Better just to pass through the minimally processed data. ;; one exception: if file extension marks it as pmap, send it to the pmap decoder instead. - (define main (apply (if ((get metas "here") . ends-with? . (->string POLLEN_MAP_EXT)) + (define main (apply (if ((->path (get metas "here")) . has-ext? . POLLEN_MAP_EXT) pmap-decode ;; most files will go this way. ;; Root is treated as a function.