From 32e2c0e9d94360024e8ec35d37fedaa23415bc1d Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Thu, 12 Nov 2009 11:24:15 -0800 Subject: [PATCH] Remove redundant PORT? test. --- src/runtime/port.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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)))) -- 2.25.1