suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
Fixes PR 15002.
This commit is contained in:
Sam Tobin-Hochstadt 2015-03-10 19:57:57 -04:00
parent 63038285e5
commit 9cc25592c3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gui-lib/mred/private/wxme/text.rkt
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]