From 7980f31cda7fb284bb4f84de0fbe38569597f57a Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 9 Feb 2016 21:23:08 -0800 Subject: [PATCH] only one cmd char --- pollen/private/reader-base.rkt | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/pollen/private/reader-base.rkt b/pollen/private/reader-base.rkt index 828b8a1..30f0d5f 100644 --- a/pollen/private/reader-base.rkt +++ b/pollen/private/reader-base.rkt @@ -11,11 +11,7 @@ (define (make-custom-read-syntax reader-mode) (λ (path-string p) (define read-inner (make-at-reader - #:command-char (if (or (eq? reader-mode default-mode-template) - (and (string? path-string) - (regexp-match (pregexp (format "\\.~a$" (setup:template-source-ext))) path-string))) - (setup:template-command-char) - (setup:command-char)) + #:command-char (setup:command-char) #:syntax? #t #:inside? #t)) (define source-stx (read-inner path-string p))