~ chicken-core (chicken-5) abaa77307a7833665c25a62ae2733d0cc81168da

commit abaa77307a7833665c25a62ae2733d0cc81168da
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Fri May 19 16:18:58 2017 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Fri May 19 16:18:58 2017 +0200

    Temporarily restore ##sys#read-string[!]/port for bootstrapping
    
    The optimizer will apply the read-string rewrite in c-platform, which
    means an old compiler will rewrite it to a ##sys#read-string call.
    After the next snapshot is made, we can drop this again.

diff --git a/extras.scm b/extras.scm
index aa23e839..bb199a9b 100644
--- a/extras.scm
+++ b/extras.scm
@@ -183,6 +183,9 @@
 (define chicken.io#read-string/port read-string/port)
 (define chicken.io#read-string!/port read-string!/port)
 
+;; XXX TODO OBSOLETE: This can be removed after recompiling c-platform.scm
+(define ##sys#read-string/port read-string/port)
+(define ##sys#read-string!/port read-string!/port)
 
 ;; <procedure>(read-buffered [PORT])</procedure>
 ;;