diff options
author | Andy Wingo <wingo@pobox.com> | 2021-02-24 20:47:28 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2021-02-25 16:07:47 +0100 |
commit | 03448b289d9804bb27b633b82e22cf7be55743c5 (patch) | |
tree | c787b25b07df04c315421ce500c7e5011a13fc08 /module/language/scheme/spec.scm | |
parent | a758ba075a589b688c07384ab8282dc703f9364d (diff) | |
download | guile-03448b289d9804bb27b633b82e22cf7be55743c5.tar.gz |
Read Scheme via read-syntax
* module/language/scheme/spec.scm: Use read-syntax.
* test-suite/tests/dwarf.test: Adapt expected source locations.
* am/bootstrap.am (SOURCES): Add ice-9/read.
Diffstat (limited to 'module/language/scheme/spec.scm')
-rw-r--r-- | module/language/scheme/spec.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/language/scheme/spec.scm b/module/language/scheme/spec.scm index e4cf55c4c..b15005372 100644 --- a/module/language/scheme/spec.scm +++ b/module/language/scheme/spec.scm @@ -21,6 +21,7 @@ (define-module (language scheme spec) #:use-module (system base compile) #:use-module (system base language) + #:use-module (ice-9 read) #:use-module (language scheme compile-tree-il) #:use-module (language scheme decompile-tree-il) #:export (scheme)) @@ -37,7 +38,7 @@ ((or (and=> (and=> (module-variable env 'current-reader) variable-ref) fluid-ref) - read) + read-syntax) port)) #:compilers `((tree-il . ,compile-tree-il)) |