renames
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…
Reference in New Issue