diff options
| author | Andy Wingo <wingo@pobox.com> | 2021-03-01 20:56:59 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2021-03-03 15:08:10 +0100 |
| commit | c802ed4832ed159b21ac012f65fd49505fcdc6f2 (patch) | |
| tree | 7d23bfc716f91d67e39d45d8543a64e2cb3b2aad | |
| parent | 54adbd6f0f173c5c2633c316670793322f08d44d (diff) | |
| download | guile-c802ed4832ed159b21ac012f65fd49505fcdc6f2.tar.gz | |
Remove textual-ports include from (ice-9 read)
* module/ice-9/read.scm: We'll be loading this file early, so avoid
extraneous deps.
| -rw-r--r-- | module/ice-9/read.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm index a1e4e7a8f..8d9faca5c 100644 --- a/module/ice-9/read.scm +++ b/module/ice-9/read.scm @@ -41,7 +41,6 @@ (define-module (ice-9 read) #:use-module (srfi srfi-11) - #:use-module (ice-9 textual-ports) #:use-module (rnrs bytevectors) #:replace (read) #:export (read-syntax)) @@ -419,7 +418,7 @@ (next) (lp (1+ i))) (begin - (unget-char port ch) + (unread-char port ch) #f)))))))) (define (read-false-or-srfi-4-vector) |