only one cmd char

Matthew Butterick 9 years ago
parent 3765a57be4
commit 7980f31cda

@ -11,11 +11,7 @@
(define (make-custom-read-syntax reader-mode) (define (make-custom-read-syntax reader-mode)
(λ (path-string p) (λ (path-string p)
(define read-inner (make-at-reader (define read-inner (make-at-reader
#:command-char (if (or (eq? reader-mode default-mode-template) #:command-char (setup:command-char)
(and (string? path-string)
(regexp-match (pregexp (format "\\.~a$" (setup:template-source-ext))) path-string)))
(setup:template-command-char)
(setup:command-char))
#:syntax? #t #:syntax? #t
#:inside? #t)) #:inside? #t))
(define source-stx (read-inner path-string p)) (define source-stx (read-inner path-string p))

Loading…
Cancel
Save