nit

11 years ago · 84333efaeb
parent 360ee33fc5
commit 84333efaeb
1 changed files with 6 additions and 6 deletions
--- a/reader-base.rkt
+++ b/reader-base.rkt
@ -13,7 +13,7 @@
  (λ (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))
+                                               (and (string? path-string) (regexp-match (pregexp (format "\\.~a$" world:template-source-ext)) path-string)))
                                           world:template-command-marker
                                           world:command-marker)
                        #:syntax? #t