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.
pollen/reader-base.rkt

23 lines
700 B
Racket

#lang racket/base
(require (only-in scribble/reader make-at-reader)
pollen/world)
(provide (all-defined-out))
(define read-inner
(make-at-reader #:command-char EXPRESSION_DELIMITER #:syntax? #t #:inside? #t))
(define (make-pollen-read pollen-read-syntax-proc)
(λ(p)
(syntax->datum
(pollen-read-syntax-proc (object-name p) p))))
(define (make-pollen-read-syntax reader-mode)
(λ (path-string p)
(define file-contents (read-inner path-string p))
(datum->syntax file-contents
`(module pollen-lang-module pollen
(define reader-mode ',reader-mode)
,@file-contents)
file-contents)))