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

io: fix port custodian unregister

Browse Source 
Make unregister match the register change in 11789ff8b0.
This commit is contained in:
Matthew Flatt 2019-05-02 07:26:20 -06:00
parent 651fc3ae5e
commit 5b929a7621
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/io/port/fd-port.rkt
View File

@ -69,7 +69,7 @@
(lambda ()
(send fd-input-port this on-close)
(fd-close fd fd-refcount)
(unsafe-custodian-unregister fd custodian-reference)
(unsafe-custodian-unregister this custodian-reference)
(close-peek-buffer))]
[file-position
@ -252,7 +252,7 @@
(plumber-flush-handle-remove! flush-handle)
(set! bstr #f)
(fd-close fd fd-refcount)
(unsafe-custodian-unregister fd custodian-reference)))]
(unsafe-custodian-unregister this custodian-reference)))]
;; in atomic mode
[file-position