update bf

beautiful-racket/br/demo/bf/bf-expander.rkt

@@ -1,9 +1,6 @@
-#lang br
+#lang br/quicklang
  
-(define-macro (bf-module-begin SRC-EXPR ...)
+(provide #%module-begin)
-  #'(#%module-begin
-     SRC-EXPR ...)) 
-(provide (rename-out [bf-module-begin #%module-begin]))
 
 (define-macro (bf-program OP-OR-LOOP ...)
   #'(begin OP-OR-LOOP ...))
@@ -30,5 +27,3 @@
   #'(until (zero? (get-current-byte))
            LOOP-ARG ...))
 (provide loop)
-
-(provide #%top-interaction)

beautiful-racket/br/demo/bf/bf-reader.rkt

@@ -1,5 +1,6 @@
-#lang br
+#lang br/quicklang
 (require parser-tools/lex brag/support)
+
 (define (tokenize input-port)
   (define (next-token)
     (define get-token
@@ -14,8 +15,6 @@
 (require "bf-parser.rkt")
 (define (read-syntax source-path input-port)
   (define parse-tree (parse source-path (tokenize input-port)))
-  (strip-context
+  (datum->syntax #f `(module bf-mod br/demo/bf/bf-expander
-    (inject-syntax ([#'PARSE-TREE parse-tree])
+                       ,parse-tree)))
-                  #'(module bf-mod br/demo/bf/bf-expander
-                      PARSE-TREE))))
 (provide read-syntax)