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

io: fix file-stream? to always return a boolean

Browse Source
This commit is contained in:
Matthew Flatt 2019-01-19 08:49:23 -07:00
parent cd56b670ca
commit 09b3b2fb3c
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,13 +12,14 @@
(make-struct-type-property 'file-stream))
(define (file-stream-port? p)
(file-stream-ref
(core-port-data
(cond
[(input-port? p) (->core-input-port p)]
[(output-port? p) (->core-output-port p)]
[else
(raise-argument-error 'file-stream-port?
"port?"
p)]))
#f))
(and (file-stream-ref
(core-port-data
(cond
[(input-port? p) (->core-input-port p)]
[(output-port? p) (->core-output-port p)]
[else
(raise-argument-error 'file-stream-port?
"port?"
p)]))
#f)
#t))