~ 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