update bf

pull/2/head
Matthew Butterick 8 years ago
parent bc489f37ab
commit 37951c7198

@ -1,9 +1,6 @@
#lang br
#lang br/quicklang
(define-macro (bf-module-begin SRC-EXPR ...)
#'(#%module-begin
SRC-EXPR ...))
(provide (rename-out [bf-module-begin #%module-begin]))
(provide #%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)

@ -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
(inject-syntax ([#'PARSE-TREE parse-tree])
#'(module bf-mod br/demo/bf/bf-expander
PARSE-TREE))))
(datum->syntax #f `(module bf-mod br/demo/bf/bf-expander
,parse-tree)))
(provide read-syntax)

Loading…
Cancel
Save