suppress an error message (related to Mac 10.7)
We could try to figure out the current state of the process, instead, but it seems like too much work.
This commit is contained in:
parent
ca0d7b5ef4
commit
9c5b78e998
|
@ -108,7 +108,12 @@
|
|||
-> _OSStatus))
|
||||
(let ([v (TransformProcessType (make-ProcessSerialNumber 0 kCurrentProcess)
|
||||
kProcessTransformToForegroundApplication)])
|
||||
(unless (zero? v)
|
||||
(unless (or (zero? v)
|
||||
;; As of Mac OS X 10.7, TransformProcessType() complains
|
||||
;; if the application is already a foreground application,
|
||||
;; so just ignore that error (even though it correctly flagged
|
||||
;; a bug in the `_ProcessSerialNumber' definition at one point).
|
||||
(= v -50))
|
||||
(log-error (format "error from TransformProcessType: ~a" v))))
|
||||
|
||||
(define app-delegate (tell (tell MyApplicationDelegate alloc) init))
|
||||
|
|
Loading…
Reference in New Issue
Block a user