From afcb8b3e8656b278835bf8de1291c8d8687d5d26 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 1 Sep 2011 07:06:20 -0600 Subject: [PATCH] report some errors instead of potentially ignoring them original commit: 3f11ef9b119b2afbd19afa1f35fc90dd2cfce527 --- collects/mred/private/wx/cocoa/queue.rkt | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/collects/mred/private/wx/cocoa/queue.rkt b/collects/mred/private/wx/cocoa/queue.rkt index 04614d67..42c848ed 100644 --- a/collects/mred/private/wx/cocoa/queue.rkt +++ b/collects/mred/private/wx/cocoa/queue.rkt @@ -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)