~ chicken-core (chicken-5) 3dccbc8b206c58027c1f2c253ba1400c8dab9608

commit 3dccbc8b206c58027c1f2c253ba1400c8dab9608
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Sat Jun 14 20:45:12 2014 +0200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Mon Jun 16 09:13:26 2014 +1200

    Remove two more deprecated procedures (##sys#check-port-mode and ##sys#check-port*) now that no remaining eggs are using it
    
    Signed-off-by: Evan Hanson <evhan@foldling.org>

diff --git a/NEWS b/NEWS
index acec2fc8..df838ca9 100644
--- a/NEWS
+++ b/NEWS
@@ -17,7 +17,8 @@
     C_retrieve_symbol_proc, C_i_foreign_number_vector_argumentp,
     C_display_flonum, C_enumerate_symbols
   - Removed several deprecated and undocumented internal procedures:
-    ##sys#zap-strings, ##sys#round, ##sys#foreign-number-vector-argument
+    ##sys#zap-strings, ##sys#round, ##sys#foreign-number-vector-argument,
+    ##sys#check-port-mode, ##sys#check-port*
 
 - C API
   - Removed deprecated C_get_argument[_2] and
diff --git a/library.scm b/library.scm
index 87f76495..dae789a0 100644
--- a/library.scm
+++ b/library.scm
@@ -1906,18 +1906,6 @@ EOF
       (##core#inline "C_i_check_port_2" x 0 #t (car loc))
       (##core#inline "C_i_check_port" x 0 #t) ) )
 
-(define (##sys#check-port-mode port mode . loc) ; OBSOLETE
-  (unless (eq? mode (##sys#slot port 1))
-    (##sys#signal-hook
-     #:type-error (and (pair? loc) (car loc))
-     (if mode "port is not an input port" "port is not an output-port") port) ) )
-
-(define (##sys#check-port* p loc)	; OBSOLETE
-  (##sys#check-port p)
-  (when (##sys#slot p 8)
-    (##sys#signal-hook #:file-error loc "port already closed" p) )
-  p )
-
 (define (current-input-port . arg)
   (when (pair? arg)
     (let ([p (car arg)])