28 lines
721 B
Racket
28 lines
721 B
Racket
12 years ago
|
#lang racket/base
|
||
|
(require (only-in scribble/reader make-at-reader)
|
||
|
(only-in (planet mb/pollen/world) POLLEN_EXPRESSION_DELIMITER))
|
||
|
|
||
|
(provide (rename-out [mb-read read]
|
||
|
[mb-read-syntax read-syntax])
|
||
|
read-inner
|
||
|
)
|
||
|
|
||
|
(define read-inner
|
||
|
(make-at-reader #:command-char POLLEN_EXPRESSION_DELIMITER
|
||
|
#:syntax? #t
|
||
|
#:inside? #t))
|
||
|
|
||
|
(define (mb-read p)
|
||
|
(syntax->datum
|
||
|
(mb-read-syntax (object-name p) p)))
|
||
|
|
||
|
(define (make-output-datum i)
|
||
|
`(module pollen-lang-module (planet mb/pollen)
|
||
|
,@i))
|
||
|
|
||
|
(define (mb-read-syntax name p)
|
||
|
(define i (read-inner name p))
|
||
|
(datum->syntax i
|
||
|
(make-output-datum i)
|
||
|
i))
|