You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
302 B
Racket
15 lines
302 B
Racket
9 years ago
|
#lang br
|
||
|
|
|
||
|
|
|
||
|
|
(module reader syntax/module-reader
|
||
|
|
#:language 'br-bf
|
||
|
|
#:read bf-read
|
||
|
|
#:read-syntax bf-read-syntax
|
||
|
|
|
||
|
|
(require "tokenizer.rkt" "parser.rkt")
|
||
|
|
(define (bf-read in)
|
||
|
|
(syntax->datum (bf-read-syntax #f in)))
|
||
|
|
|
||
|
|
(define (bf-read-syntax src ip)
|
||
|
|
(list (parse src (tokenize ip)))))
|