mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

Read Scheme via read-syntax

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2021-02-24 20:47:28 +01:00
parent a758ba075a
commit 03448b289d
3 changed files with 16 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/scheme/spec.scm
View file

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