21 lines
456 B
Racket
21 lines
456 B
Racket
#lang racket/base
|
|
|
|
(provide (rename-out [kaitai-module-begin #%module-begin]))
|
|
|
|
(define-syntax-rule (kaitai-module-begin EXPR ...)
|
|
(#%module-begin
|
|
(displayln `(EXPR ...))))
|
|
|
|
(module reader syntax/module-reader
|
|
#:read kaitai-read
|
|
#:read-syntax kaitai-read
|
|
#:language "."
|
|
|
|
(require yaml)
|
|
|
|
(define (kaitai-read path port)
|
|
(or (read-yaml port) eof))
|
|
|
|
(define (kaitai-read-syntax path port)
|
|
(datum->syntax #f (kaitai-read path port))))
|