From 28b539807c08be2bc173168df9ed1256b5b54fd6 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 10 Jan 2017 22:45:28 -0800 Subject: [PATCH] Delete commented-out init code. --- src/runtime/port.scm | 33 --------------------------------- 1 file changed, 33 deletions(-) diff --git a/src/runtime/port.scm b/src/runtime/port.scm index 85592b473..0cbdf7e79 100644 --- a/src/runtime/port.scm +++ b/src/runtime/port.scm @@ -721,39 +721,6 @@ USA. (set! i/o-port? (disjoin textual-i/o-port? binary-i/o-port?)) unspecific)) -#| -(define (port? object) - (or (textual-port? object) - (binary-port? object))) - -(define (input-port? object) - (or (textual-input-port? object) - (binary-input-port? object))) - -(define (output-port? object) - (or (textual-output-port? object) - (binary-output-port? object))) - -(define (i/o-port? object) - (or (textual-i/o-port? object) - (binary-i/o-port? object))) - -(add-boot-init! - (lambda () - (register-predicate! port? 'port) - (set-predicate<=! binary-port? port?) - (set-predicate<=! textual-port? port?) - (register-predicate! input-port? 'port) - (set-predicate<=! binary-input-port? input-port?) - (set-predicate<=! textual-input-port? input-port?) - (register-predicate! output-port? 'port) - (set-predicate<=! binary-output-port? output-port?) - (set-predicate<=! textual-output-port? output-port?) - (register-predicate! i/o-port? 'port) - (set-predicate<=! binary-i/o-port? i/o-port?) - (set-predicate<=! textual-i/o-port? i/o-port?))) -|# - (define-guarantee port "port") (define-guarantee input-port "input port") (define-guarantee output-port "output port") -- 2.25.1