diff --git a/language/prescheme/spec.scm b/language/prescheme/spec.scm index 021ab55..2a8d27b 100644 --- a/language/prescheme/spec.scm +++ b/language/prescheme/spec.scm @@ -1,18 +1,23 @@ ;;; Copyright 2022 Andrew Whatson (define-module (language prescheme spec) - #:use-module (system base language)) + #:use-module (system base language) + #:use-module (language scheme compile-tree-il) + #:use-module (language scheme decompile-tree-il)) (define (reader port env) (read-syntax port)) (define (default-environment) (let ((m (make-module))) - (module-use! m (resolve-module '(language pre-scheme core))) + (module-use! m (resolve-module '(language prescheme core))) m)) (define-language prescheme #:title "Pre-Scheme" #:reader reader #:printer write + #:compilers `((tree-il . ,compile-tree-il)) + #:decompilers `((tree-il . ,decompile-tree-il)) + #:evaluator (lambda (x module) (primitive-eval x)) #:make-default-environment default-environment)