From ae6303b2373e8e80a2c7be588f1b4a702904299f Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 30 Aug 2018 11:23:59 -0700 Subject: [PATCH] conform names --- beautiful-racket-demo/jsonic-demo-2/expander.rkt | 4 ++-- beautiful-racket-demo/jsonic-demo-3/expander.rkt | 4 ++-- beautiful-racket-demo/jsonic-demo/expander.rkt | 4 ++-- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/beautiful-racket-demo/jsonic-demo-2/expander.rkt b/beautiful-racket-demo/jsonic-demo-2/expander.rkt index b2f58d3..a5caa2e 100644 --- a/beautiful-racket-demo/jsonic-demo-2/expander.rkt +++ b/beautiful-racket-demo/jsonic-demo-2/expander.rkt @@ -1,12 +1,12 @@ #lang br/quicklang (require json) -(define-macro (js-module-begin PARSE-TREE) +(define-macro (jsonic-mb PARSE-TREE) #'(#%module-begin (define result-string PARSE-TREE) (define validated-jsexpr (string->jsexpr result-string)) (display result-string))) -(provide (rename-out [js-module-begin #%module-begin])) +(provide (rename-out [jsonic-mb #%module-begin])) (define-macro (jsonic-char CHAR-TOK-VALUE) #'CHAR-TOK-VALUE) diff --git a/beautiful-racket-demo/jsonic-demo-3/expander.rkt b/beautiful-racket-demo/jsonic-demo-3/expander.rkt index b2f58d3..a5caa2e 100644 --- a/beautiful-racket-demo/jsonic-demo-3/expander.rkt +++ b/beautiful-racket-demo/jsonic-demo-3/expander.rkt @@ -1,12 +1,12 @@ #lang br/quicklang (require json) -(define-macro (js-module-begin PARSE-TREE) +(define-macro (jsonic-mb PARSE-TREE) #'(#%module-begin (define result-string PARSE-TREE) (define validated-jsexpr (string->jsexpr result-string)) (display result-string))) -(provide (rename-out [js-module-begin #%module-begin])) +(provide (rename-out [jsonic-mb #%module-begin])) (define-macro (jsonic-char CHAR-TOK-VALUE) #'CHAR-TOK-VALUE) diff --git a/beautiful-racket-demo/jsonic-demo/expander.rkt b/beautiful-racket-demo/jsonic-demo/expander.rkt index b2f58d3..a5caa2e 100644 --- a/beautiful-racket-demo/jsonic-demo/expander.rkt +++ b/beautiful-racket-demo/jsonic-demo/expander.rkt @@ -1,12 +1,12 @@ #lang br/quicklang (require json) -(define-macro (js-module-begin PARSE-TREE) +(define-macro (jsonic-mb PARSE-TREE) #'(#%module-begin (define result-string PARSE-TREE) (define validated-jsexpr (string->jsexpr result-string)) (display result-string))) -(provide (rename-out [js-module-begin #%module-begin])) +(provide (rename-out [jsonic-mb #%module-begin])) (define-macro (jsonic-char CHAR-TOK-VALUE) #'CHAR-TOK-VALUE)