dev-srcloc
Matthew Butterick 8 years ago
parent 961d3f94de
commit 9014efcb53

@ -1,4 +1,4 @@
#lang reader "bf-reader.rkt"
#lang reader "reader.rkt"
>++++++++++>>>+>+[>>>+[-[<<<<<[+<<<<<]>>[[-]>[<<+>+>-]
<[>+<-]<[>+<-[>+<-[>+<-[>+<-[>+<-[>+<-[>+<-[>+<-[>+<-
[>[-]>>>>+>+<<<<<<-[>+<-]]]]]]]]]]]>[<+>-]+>>>>>]<<<<<

@ -1,4 +1,4 @@
#lang reader "bf-reader.rkt"
#lang reader "reader.rkt"
++++++[>++++++++++++<-]>.
>++++++++++[>++++++++++<-]>+.
+++++++..+++.>++++[>+++++++++++<-]>.

@ -1,14 +1,14 @@
#lang br/quicklang
(require "bf-parser.rkt")
(require "parser.rkt")
(define (read-syntax path port)
(define parse-tree (parse path (tokenize port)))
(define module-datum `(module bf-mod br/demo/bf/bf-expander
(define module-datum `(module bf-mod br/demo/bf/expander
,parse-tree))
(datum->syntax #f module-datum))
(provide read-syntax)
(require parser-tools/lex brag/support)
(require parser-tools/lex)
(define (tokenize port)
(define (next-token)
(define our-lexer
Loading…
Cancel
Save