From 77771617314d1291a0caa60ed35ec7ef7d5901b4 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@indiana.edu>
Date: Wed, 1 Jul 2020 16:44:58 -0400
Subject: [PATCH] Replace some `eq?`s in snip-handling code.

---
 gui-lib/mred/private/wxme/editor-snip.rkt | 4 ++--
 gui-lib/mred/private/wxme/mline.rkt       | 2 +-
 gui-lib/mred/private/wxme/text.rkt        | 4 ++--
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/gui-lib/mred/private/wxme/editor-snip.rkt b/gui-lib/mred/private/wxme/editor-snip.rkt
index d29442be9..3a9f2c682 100644
--- a/gui-lib/mred/private/wxme/editor-snip.rkt
+++ b/gui-lib/mred/private/wxme/editor-snip.rkt
@@ -99,7 +99,7 @@
 
   (def/override (set-admin [(make-or-false snip-admin%) a])
 
-    (when (not (eq? a s-admin))
+    (when (not (object-or-false=? a s-admin))
       (super set-admin a)
       (when editor
         (if a
@@ -125,7 +125,7 @@
     (void))
   
   (def/public (set-editor [editor<%> b])
-    (unless (eq? editor b)
+    (unless (object-or-false=? editor b)
       (when (and editor s-admin)
         (send editor set-admin #f))
       (set! editor b)
diff --git a/gui-lib/mred/private/wxme/mline.rkt b/gui-lib/mred/private/wxme/mline.rkt
index a1f72a4db..d06b74a57 100644
--- a/gui-lib/mred/private/wxme/mline.rkt
+++ b/gui-lib/mred/private/wxme/mline.rkt
@@ -1148,7 +1148,7 @@ Debugging tools:
                                   w h)))
                (let ([maxspace (max maxspace (- maxantidescent maxbase))]
                      [maxdescent (max maxdescent (- maxantispace maxbase))])
-                 (unless (eq? (mline-scroll-snip mline) scroll-snip)
+                 (unless (object-or-false=? (mline-scroll-snip mline) scroll-snip)
                    (set! sizing-changed? #t)
                    (set-mline-scroll-snip! mline scroll-snip))
                  (unless (= (mline-last-h mline) last-h)
diff --git a/gui-lib/mred/private/wxme/text.rkt b/gui-lib/mred/private/wxme/text.rkt
index db7072ab1..c1352940d 100644
--- a/gui-lib/mred/private/wxme/text.rkt
+++ b/gui-lib/mred/private/wxme/text.rkt
@@ -4339,9 +4339,9 @@
                      (set-snip-line! naya line)
                      
                      (when line
-                       (when (eq? (mline-snip line) snip)
+                       (when (object-or-false=? (mline-snip line) snip)
                          (set-mline-snip! line naya))
-                       (when (eq? (mline-last-snip line) snip)
+                       (when (object-or-false=? (mline-last-snip line) snip)
                          (set-mline-last-snip! line naya)))
                      
                      (send snip set-s-admin #f)