TakeV/guile-prescheme
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Fix language definition for REPL support

Browse source
This commit is contained in:
Andrew Whatson 2022-07-17 02:13:08 +10:00
parent 470d13dd98
commit 907753c1cb
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
language/prescheme/spec.scm
View file

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