From 020b206e0b5631d53ffacc57549c8d94eedb98d6 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 9 Feb 2016 21:23:33 -0800 Subject: [PATCH] less stxy --- pollen/private/reader-base.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/pollen/private/reader-base.rkt b/pollen/private/reader-base.rkt index 30f0d5f..fbdbda9 100644 --- a/pollen/private/reader-base.rkt +++ b/pollen/private/reader-base.rkt @@ -30,13 +30,13 @@ auto-computed-mode) reader-mode)) (define post-parser-syntax - (with-syntax ([HERE-KEY (format-id source-stx "~a" (setup:here-path-key))] - [HERE-PATH (datum->syntax source-stx reader-here-path)] + (with-syntax ([HERE-KEY (format-id #f "~a" (setup:here-path-key))] + [HERE-PATH (datum->syntax #f reader-here-path)] [POLLEN-MOD (format-symbol "~a" (gensym))] ; prevents conflicts with other imported Pollen sources [PARSER-MODE-VALUE (format-symbol "~a" parser-mode)] - [DIRECTORY-REQUIRES (datum->syntax source-stx (require+provide-directory-require-files path-string))] + [DIRECTORY-REQUIRES (datum->syntax #f (require+provide-directory-require-files path-string))] [(SOURCE-LINE ...) source-stx] - [DOC (format-id source-stx "~a" (setup:main-export))]) + [DOC (format-id #f "~a" (setup:main-export))]) (replace-context source-stx #'(module runtime-wrapper racket/base