Use object-or-false=? on snip admins.

Fixes PR 15002.
This commit is contained in:
Sam Tobin-Hochstadt 2015-03-10 19:57:57 -04:00
parent 63038285e5
commit 9cc25592c3

View File

@ -4283,10 +4283,10 @@
(set! flow-locked? fl?) (set! flow-locked? fl?)
(let ([snip (let ([snip
(if (not (eq? (snip->admin snip) a)) (if (not (object-or-false=? (snip->admin snip) a))
;; something went wrong ;; something went wrong
(cond (cond
[(and (not a) (eq? (snip->admin snip) orig-admin)) [(and (not a) (object-or-false=? (snip->admin snip) orig-admin))
;; force admin to NULL ;; force admin to NULL
(send snip set-s-admin #f) (send snip set-s-admin #f)
snip] snip]