~ 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