Replace some eq?s in snip-handling code.

Author: samth

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)

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)

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)