From 739269f88951edb47196a76d4bd06a395fafc332 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 15 Apr 2016 11:03:57 -0700 Subject: [PATCH] file structure --- beautiful-racket/br/bf.rkt | 3 +-- beautiful-racket/br/bf/bf-reader.rkt | 2 +- beautiful-racket/br/bf/main.rkt | 5 +++++ 3 files changed, 7 insertions(+), 3 deletions(-) create mode 100644 beautiful-racket/br/bf/main.rkt diff --git a/beautiful-racket/br/bf.rkt b/beautiful-racket/br/bf.rkt index d0b1bbd..bc41356 100644 --- a/beautiful-racket/br/bf.rkt +++ b/beautiful-racket/br/bf.rkt @@ -1,5 +1,4 @@ #lang br - (module reader br - (require "bf/bf-reader.rkt") + (require (submod "bf/main.rkt" reader)) (provide read-syntax)) diff --git a/beautiful-racket/br/bf/bf-reader.rkt b/beautiful-racket/br/bf/bf-reader.rkt index cc2397f..7e46348 100644 --- a/beautiful-racket/br/bf/bf-reader.rkt +++ b/beautiful-racket/br/bf/bf-reader.rkt @@ -16,6 +16,6 @@ (define parse-tree (parse source-path (tokenize input-port))) (strip-context (inject-syntax ([#'PARSE-TREE parse-tree]) - #'(module bf-mod "bf-expander.rkt" + #'(module bf-mod br/bf/bf-expander PARSE-TREE)))) (provide read-syntax) diff --git a/beautiful-racket/br/bf/main.rkt b/beautiful-racket/br/bf/main.rkt new file mode 100644 index 0000000..2c59887 --- /dev/null +++ b/beautiful-racket/br/bf/main.rkt @@ -0,0 +1,5 @@ +#lang br + +(module reader br + (require "bf-reader.rkt") + (provide read-syntax))