From a4bd83011bc889cca98d8f0d3d12d671044d36fa Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 13 Feb 2019 10:41:12 -0700 Subject: [PATCH] io: fix result of `file-stream-port?` --- racket/src/io/port/file-stream.rkt | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/racket/src/io/port/file-stream.rkt b/racket/src/io/port/file-stream.rkt index b28090f454..188bb9f972 100644 --- a/racket/src/io/port/file-stream.rkt +++ b/racket/src/io/port/file-stream.rkt @@ -12,10 +12,11 @@ (make-struct-type-property 'file-stream)) (define (file-stream-port? p) - (file-stream-ref - (or (->core-input-port p #:default #f) - (->core-output-port p #:default #f) - (raise-argument-error 'file-stream-port? - "port?" - p)) - #f)) + (and (file-stream-ref + (or (->core-input-port p #:default #f) + (->core-output-port p #:default #f) + (raise-argument-error 'file-stream-port? + "port?" + p)) + #f) + #t))