summaryrefslogtreecommitdiff
path: root/module/language/scheme/spec.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2021-02-24 20:47:28 +0100
committerAndy Wingo <wingo@pobox.com>2021-02-25 16:07:47 +0100
commit03448b289d9804bb27b633b82e22cf7be55743c5 (patch)
treec787b25b07df04c315421ce500c7e5011a13fc08 /module/language/scheme/spec.scm
parenta758ba075a589b688c07384ab8282dc703f9364d (diff)
downloadguile-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.scm3
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))