diff options
author | Andy Wingo <wingo@pobox.com> | 2021-03-02 21:54:42 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2021-03-03 17:08:55 +0100 |
commit | 8edf1dc6231eb7b574cc63176e55ac25c0e71330 (patch) | |
tree | 594381f0d3c7549feda2d571405dce2cd691421a /module/ice-9/psyntax.scm | |
parent | 118f0c23c4e08e2c34415e61a4e419dfa748d058 (diff) | |
download | guile-8edf1dc6231eb7b574cc63176e55ac25c0e71330.tar.gz |
Read-in-scheme replaces boot "read" definition
Instead of defining a separate module, given that "read" calls are quite
all over the place, we're just going to replace the boot "read" binding
with read.scm. This way, we'll be able to remove support for reader
options in the boot reader, as it will only ever be used for a finite
set of files.
* NEWS: Update.
* module/Makefile.am (ice-9/boot-9.go): Depend on read.scm.
(SOURCES):
* am/bootstrap.am (SOURCES): Don't build a ice-9/read.go, as we include
it.
* module/ice-9/boot-9.scm (read-syntax): Define here, as "include" now
uses it.
(read-hash-procedures, read-hash-procedure, read-hash-extend): New
procedures. Will replace C variants.
(read, read-syntax): Include read.scm to define these.
* module/ice-9/psyntax-pp.scm (include): Regenerate.
* module/ice-9/psyntax.scm (include): Use read-syntax, so we get better
source information.
* module/ice-9/read.scm (let*-values): New local definition, to avoid
loading srfi-11.
(%read): Use list->typed-array instead of u8-list->bytevector.
* module/language/scheme/spec.scm: Remove (ice-9 read) import;
read-syntax is there in the boot environment
Diffstat (limited to 'module/ice-9/psyntax.scm')
-rw-r--r-- | module/ice-9/psyntax.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 57ac6a680..b52bb397e 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -3267,7 +3267,7 @@ names." ;; In Guile, (cons #'a #'b) is the same as #'(a . b). (cons #'begin (let lp () - (let ((x (read p))) + (let ((x (read-syntax p))) (if (eof-object? x) #'() (cons (datum->syntax #'filename x) (lp)))))))))))) |