#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))))