From 84333efaeb638dce0074be818f9c825650b7903e Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 27 Mar 2014 22:53:11 -0700 Subject: [PATCH] nit --- reader-base.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/reader-base.rkt b/reader-base.rkt index 333243f..365f692 100644 --- a/reader-base.rkt +++ b/reader-base.rkt @@ -12,12 +12,12 @@ (define (make-custom-read-syntax reader-mode) (λ (path-string p) (define read-inner (make-at-reader - #:command-char (if (or (equal? reader-mode world:mode-template) - (regexp-match (pregexp (format "\\.~a$" world:template-source-ext)) path-string)) - world:template-command-marker - world:command-marker) - #:syntax? #t - #:inside? #t)) + #:command-char (if (or (equal? reader-mode world:mode-template) + (and (string? path-string) (regexp-match (pregexp (format "\\.~a$" world:template-source-ext)) path-string))) + world:template-command-marker + world:command-marker) + #:syntax? #t + #:inside? #t)) (define file-contents (read-inner path-string p)) (datum->syntax file-contents `(module pollen-lang-module pollen