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

report some errors instead of potentially ignoring them

Browse Source 
original commit: 3f11ef9b119b2afbd19afa1f35fc90dd2cfce527
This commit is contained in:
Matthew Flatt 2011-09-01 07:06:20 -06:00
parent 6c30211409
commit afcb8b3e86
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mred/private/wx/cocoa/queue.rkt
View File

@ -89,8 +89,10 @@
(define-appserv TransformProcessType (_fun _ProcessSerialNumber-pointer
_uint32
-> _OSStatus))
(void (TransformProcessType (make-ProcessSerialNumber 0 kCurrentProcess)
kProcessTransformToForegroundApplication))
(let ([v (TransformProcessType (make-ProcessSerialNumber 0 kCurrentProcess)
kProcessTransformToForegroundApplication)])
(unless (zero? v)
(log-error (format "error from TransformProcessType: ~a" v))))
(define app-delegate (tell (tell MyApplicationDelegate alloc) init))
(tellv app setDelegate: app-delegate)
@ -108,8 +110,9 @@
(define-appserv CGDisplayRegisterReconfigurationCallback
(_fun (_fun #:atomic? #t -> _void) _pointer -> _int32))
(define (on-screen-changed) (post-dummy-event))
(void
(CGDisplayRegisterReconfigurationCallback on-screen-changed #f))
(let ([v (CGDisplayRegisterReconfigurationCallback on-screen-changed #f)])
(unless (zero? v)
(log-error (format "error from CGDisplayRegisterReconfigurationCallback: ~a" v))))
(tellv app finishLaunching)