~ chicken-core (chicken-5) 10ee201732c23d6c52ff8ec419bddd610f9b8d47

commit 10ee201732c23d6c52ff8ec419bddd610f9b8d47
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sat Apr 29 19:08:54 2017 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sat Apr 29 19:19:45 2017 +1200

    Drop unused ##sys#read-from-string procedure

diff --git a/library.scm b/library.scm
index f164c76b..84576b86 100644
--- a/library.scm
+++ b/library.scm
@@ -5423,13 +5423,6 @@ EOF
   (if (promise? obj) obj
       (##sys#make-promise (lambda () obj))))
 
-;;; Internal string-reader:
-
-(define ##sys#read-from-string 
-  (lambda (s)
-    (let ([i (open-input-string s)])
-      (read i) ) ) )
-
 
 ;;; Convenient error printing: