pollen/lang/reader.rkt

#lang racket/base
(require (only-in scribble/reader make-at-reader))

(provide (rename-out [pollen-read read] [pollen-read-syntax read-syntax]) read-inner)

(define read-inner
  (make-at-reader #:command-char #\◊ #:syntax? #t #:inside? #t))

(define (pollen-read p)
  (syntax->datum
   (pollen-read-syntax (object-name p) p)))

(define (make-output-datum i)
  `(module pollen-lang-module pollen ,@i))

(define (pollen-read-syntax path-string p)
  (define file-contents (read-inner path-string p))
  (datum->syntax file-contents `(module pollen-lang-module pollen ,@file-contents) file-contents))