From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 11 Jan 2017 06:45:28 +0000 (-0800)
Subject: Delete commented-out init code.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~157
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=28b539807c08be2bc173168df9ed1256b5b54fd6;p=mit-scheme.git

Delete commented-out init code.
---

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")