io: fix port custodian unregister

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

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