~ chicken-core (chicken-5) 6902ed5e88934563c81358446368a960ac4240ad

commit 6902ed5e88934563c81358446368a960ac4240ad
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Fri Jun 3 19:10:28 2016 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Fri Jun 3 19:13:41 2016 +1200

    Remove unused "unit-hook" procedure
    
    This was a remnant of some earlier work on library loading. It should
    have been removed in 09ae443.

diff --git a/library.scm b/library.scm
index 0cba1c82..9acd2796 100644
--- a/library.scm
+++ b/library.scm
@@ -41,7 +41,7 @@
 	##sys#string->compnum ##sys#internal-gcd)
   (not inline ##sys#user-read-hook ##sys#error-hook ##sys#signal-hook ##sys#schedule
        ##sys#default-read-info-hook ##sys#infix-list-hook ##sys#sharp-number-hook
-       ##sys#user-print-hook ##sys#user-interrupt-hook ##sys#unit-hook)
+       ##sys#user-print-hook ##sys#user-interrupt-hook)
   (foreign-declare #<<EOF
 #include <errno.h>
 #include <float.h>
@@ -4436,10 +4436,6 @@ EOF
 (when (##sys#fudge 39) (set! ##sys#features (cons #:cross-chicken ##sys#features)))
 (when (##sys#fudge 3) (set! ##sys#features (cons #:64bit ##sys#features)))
 
-(define ##sys#unit-hook
-  (lambda (id)
-    (##sys#put! id '##core#unit #t)))
-
 (set! ##sys#features
   (let ((major (##sys#string-append "chicken-" (##sys#number->string (##sys#fudge 41)))))
     (cons (##sys#->feature-id major)