~ chicken-core (chicken-5) c96b3adbf190d1839014bbec101161d28591d0f7
commit c96b3adbf190d1839014bbec101161d28591d0f7
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Sun Oct 29 23:59:06 2017 +1300
Commit: Evan Hanson <evhan@foldling.org>
CommitDate: Sun Oct 29 23:59:06 2017 +1300
Reassign scheme#read directly
This makes `read` consistent with the other stubbed values from the
"scheme" module and dispels a compiler warning about an "assignment to
imported value binding" in library.scm.
diff --git a/library.scm b/library.scm
index 425b36d3..c17236a6 100644
--- a/library.scm
+++ b/library.scm
@@ -3455,7 +3455,7 @@ EOF
(##sys#check-input-port port #t 'peek-char)
(##sys#peek-char-0 port) ))
-(set! read
+(set! scheme#read
(lambda (#!optional (port ##sys#standard-input))
(##sys#check-input-port port #t 'read)
(##sys#read port ##sys#default-read-info-hook) ))
Trap