19 lines
432 B
Scheme
19 lines
432 B
Scheme
|
;;; 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)
|