From 020264795980b1ac68b81265999e4f8c5859b22f Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 2 Mar 2017 12:44:26 -0800 Subject: [PATCH] tokenize only dialect --- .../basic-demo-3/tokenize-only.rkt | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 beautiful-racket-demo/basic-demo-3/tokenize-only.rkt diff --git a/beautiful-racket-demo/basic-demo-3/tokenize-only.rkt b/beautiful-racket-demo/basic-demo-3/tokenize-only.rkt new file mode 100644 index 0000000..dff28d0 --- /dev/null +++ b/beautiful-racket-demo/basic-demo-3/tokenize-only.rkt @@ -0,0 +1,14 @@ +#lang br/quicklang +(require "parser.rkt" "tokenizer.rkt" brag/support) + +(define (read-syntax path port) + (define tokens (apply-tokenizer-maker make-tokenizer port)) + (strip-bindings + #`(module basic-parser-mod basic-demo-3/parse-only + '#,tokens))) +(module+ reader (provide read-syntax)) + +(define-macro (mb PARSE-TREE) + #'(#%module-begin + 'PARSE-TREE)) +(provide (rename-out [mb #%module-begin])) \ No newline at end of file