>From 78c4103e078d7669450d81d71e13f64a37a99827 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Sat, 14 Jun 2014 20:45:12 +0200 Subject: [PATCH] Remove two more deprecated procedures (##sys#check-port-mode and ##sys#check-port*) now that no remaining eggs are using it --- NEWS | 3 ++- library.scm | 12 ------------ 2 files changed, 2 insertions(+), 13 deletions(-) diff --git a/NEWS b/NEWS index acec2fc..df838ca 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 87f7649..dae789a 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)]) -- 1.7.10.4