From 5b929a76216a6c111b681c79b19056a1c890b5dd Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 2 May 2019 07:26:20 -0600
Subject: [PATCH] io: fix port custodian unregister

Make unregister match the register change in 11789ff8b0.
---
 racket/src/io/port/fd-port.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/racket/src/io/port/fd-port.rkt b/racket/src/io/port/fd-port.rkt
index e2f2d4fac8..cad56fa521 100644
--- a/racket/src/io/port/fd-port.rkt
+++ b/racket/src/io/port/fd-port.rkt
@@ -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