;;; Copyright 2022 Andrew Whatson

(define-module (language prescheme spec)
  #:use-module (system base language))

(define (reader port env)
  (read-syntax port))

(define (default-environment)
  (let ((m (make-module)))
    (module-use! m (resolve-module '(language pre-scheme core)))
    m))

(define-language prescheme
  #:title "Pre-Scheme"
  #:reader reader
  #:printer write
  #:make-default-environment default-environment)