suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

io: fix result of file-stream-port?

Browse Source
This commit is contained in:
Matthew Flatt 2019-02-13 10:41:12 -07:00
parent 5339a36187
commit a4bd83011b
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
racket/src/io/port/file-stream.rkt
View File

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