From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Thu, 12 Nov 2009 19:24:15 +0000 (-0800)
Subject: Remove redundant PORT? test.
X-Git-Tag: 20100708-Gtk~248
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=32e2c0e9d94360024e8ec35d37fedaa23415bc1d;p=mit-scheme.git

Remove redundant PORT? test.
---

diff --git a/src/runtime/port.scm b/src/runtime/port.scm
index 15dbbd348..870d9c003 100644
--- a/src/runtime/port.scm
+++ b/src/runtime/port.scm
@@ -402,6 +402,7 @@ USA.
 
 (define (set-port/type! port type)
   (guarantee-port port 'SET-PORT/TYPE!)
+  (guarantee-port-type type 'SET-PORT/TYPE!)
   (set-port/%type! port type))
 
 (define (port/state port)
@@ -590,17 +591,17 @@ USA.
 
 (define (input-port? object)
   (and (port? object)
-       (port-type/supports-input? (port/type object))
+       (port-type/supports-input? (port/%type object))
        #t))
 
 (define (output-port? object)
   (and (port? object)
-       (port-type/supports-output? (port/type object))
+       (port-type/supports-output? (port/%type object))
        #t))
 
 (define (i/o-port? object)
   (and (port? object)
-       (let ((type (port/type object)))
+       (let ((type (port/%type object)))
 	 (and (port-type/supports-input? type)
 	      (port-type/supports-output? type)
 	      #t))))