io: fix result of file-stream-port?

2019-02-13 10:41:12 -07:00 · 2019-02-13 10:41:12 -07:00 · a4bd83011b
commit a4bd83011b
parent 5339a36187
1 changed files with 8 additions and 7 deletions
--- 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
+  (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))
+        #f)
+       #t))