|
|
|
@ -13,7 +13,7 @@
|
|
|
|
(λ (path-string p)
|
|
|
|
(λ (path-string p)
|
|
|
|
(define read-inner (make-at-reader
|
|
|
|
(define read-inner (make-at-reader
|
|
|
|
#:command-char (if (or (equal? reader-mode world:mode-template)
|
|
|
|
#: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:template-command-marker
|
|
|
|
world:command-marker)
|
|
|
|
world:command-marker)
|
|
|
|
#:syntax? #t
|
|
|
|
#:syntax? #t
|
|
|
|
|
