From ef846d113e9ea24e954925fe6cb9944b5931b218 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 22 May 2018 05:12:33 -0700 Subject: [PATCH] nit --- brag/brag/codegen/sexp-based-lang.rkt | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/brag/brag/codegen/sexp-based-lang.rkt b/brag/brag/codegen/sexp-based-lang.rkt index 06d320a..4446ce0 100755 --- a/brag/brag/codegen/sexp-based-lang.rkt +++ b/brag/brag/codegen/sexp-based-lang.rkt @@ -89,19 +89,18 @@ (provide rules (except-out (all-from-out racket/base) #%module-begin) - (rename-out [my-module-begin #%module-begin]) - #%top-interaction #%top #%app #%datum) + (rename-out [my-module-begin #%module-begin])) (define-syntax (my-module-begin module-stx) (syntax-case module-stx () [(_ RULES-STX) (with-syntax ([RULES-STX (for/fold ([stx #'RULES-STX]) - ([id (in-list '(parse parse-to-datum parse-tree make-rule-parser all-token-types))]) - (syntax-property stx id (syntax-local-introduce (replace-context module-stx (datum->syntax #f id)))))]) - #`(#%module-begin - RULES-STX - (provide (all-defined-out))))])) + ([sym (in-list '(parse parse-to-datum parse-tree make-rule-parser all-token-types))]) + (syntax-property stx sym (syntax-local-introduce (replace-context module-stx (datum->syntax #f sym)))))]) + #'(#%module-begin + (provide (all-defined-out)) + RULES-STX))])) (define-syntax (rules rules-stx)