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 #lang br/quicklang
(require "bf-parser.rkt") (require "parser.rkt")
(define (read-syntax path port) (define (read-syntax path port)
(define parse-tree (parse path (tokenize 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)) ,parse-tree))
(datum->syntax #f module-datum)) (datum->syntax #f module-datum))
(provide read-syntax) (provide read-syntax)
(require parser-tools/lex brag/support) (require parser-tools/lex)
(define (tokenize port) (define (tokenize port)
(define (next-token) (define (next-token)
(define our-lexer (define our-lexer
Loading…
Cancel
Save