~ chicken-core (chicken-5) 89e8671d9a9e881c15bc958e84ef5577df822a20

commit 89e8671d9a9e881c15bc958e84ef5577df822a20
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Tue Jan 19 20:03:15 2016 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Tue Mar 8 22:52:34 2016 +1300

    Drop some unnecessary "hide" declarations

diff --git a/c-platform.scm b/c-platform.scm
index d748a179..b576d52e 100644
--- a/c-platform.scm
+++ b/c-platform.scm
@@ -939,8 +939,6 @@
   (rewrite 'call-with-current-continuation 8 rewrite-call/cc)
   (rewrite 'call/cc 8 rewrite-call/cc) )
 
-(declare (hide setter-map))
-
 (define setter-map
   '((car . set-car!)
     (cdr . set-cdr!)
diff --git a/library.scm b/library.scm
index 71bd60f1..5b0c8bcc 100644
--- a/library.scm
+++ b/library.scm
@@ -31,12 +31,12 @@
   (disable-interrupts)
   (hide ##sys#dynamic-unwind
 	##sys#vector-resize ##sys#default-parameter-vector 
-	current-print-length setter-tag read-marks
+	current-print-length setter-tag
 	##sys#print-exit
 	##sys#format-here-doc-warning
 	exit-in-progress
         maximal-string-length find-ratio-between find-ratio
-	make-complex flonum->ratnum ratnum rat+/-
+	make-complex flonum->ratnum ratnum
 	+maximum-allowed-exponent+ mantexp->dbl ldexp round-quotient
 	##sys#string->compnum ##sys#internal-gcd)
   (not inline ##sys#user-read-hook ##sys#error-hook ##sys#signal-hook ##sys#schedule
diff --git a/scheduler.scm b/scheduler.scm
index 20dba763..078318a7 100644
--- a/scheduler.scm
+++ b/scheduler.scm
@@ -31,10 +31,10 @@
   (disable-interrupts)
   (hide ready-queue-head ready-queue-tail ##sys#timeout-list
 	##sys#update-thread-state-buffer ##sys#restore-thread-state-buffer
-	remove-from-ready-queue ##sys#unblock-threads-for-i/o
+	##sys#unblock-threads-for-i/o
 	;; This isn't hidden ATM to allow set!ing it as a hook/workaround
 	; ##sys#force-primordial
-	fdset-set fdset-test create-fdset stderr delq
+	remove-from-ready-queue fdset-test create-fdset stderr delq
 	##sys#clear-i/o-state-for-thread! ##sys#abandon-mutexes) 
   (not inline ##sys#interrupt-hook ##sys#force-primordial)
   (unsafe)
diff --git a/srfi-4.scm b/srfi-4.scm
index f86f9d39..80ef73ca 100644
--- a/srfi-4.scm
+++ b/srfi-4.scm
@@ -636,8 +636,6 @@ EOF
 
 ;;; Accessing the packed bytevector:
 
-(declare (hide pack pack-copy unpack unpack-copy))
-
 (define (pack tag loc)
   (lambda (v)
     (##sys#check-structure v tag loc)
@@ -766,8 +764,6 @@ EOF
 
 ;;; Subvectors:
 
-(declare (hide subnvector))
-
 (define (subnvector v t es from to loc)
   (##sys#check-structure v t loc)
   (let* ([bv (##sys#slot v 1)]