core-foundation.run-loop: define a CALLBACK and use it.

diff --git a/basis/core-foundation/run-loop/run-loop.factor b/basis/core-foundation/run-loop/run-loop.factor
index 638a00404451b2bf2ab7f6569966f0608adac7ab..14e80a5c98bebf3c614ce8966757c8bc9bac90f7 100644 (file)
--- a/basis/core-foundation/run-loop/run-loop.factor
+++ b/basis/core-foundation/run-loop/run-loop.factor
@@ -56,6 +56,11 @@ FUNCTION: void CFRunLoopRemoveTimer (
     CFStringRef mode
 ) ;
 
+CALLBACK: void CFRunLoopTimerCallBack (
+   CFRunLoopTimerRef timer,
+   void *info
+) ;
+
 CFSTRING: CFRunLoopDefaultMode "kCFRunLoopDefaultMode"
 
 TUPLE: run-loop-state fds sources timers ;
@@ -121,8 +126,7 @@ PRIVATE>
     [ fds>> [ enable-all-callbacks ] each ] bi ;
 
 : timer-callback ( -- callback )
-    void { CFRunLoopTimerRef void* } cdecl
-    [ drop reset-timer yield ] alien-callback ;
+    [ drop reset-timer yield ] CFRunLoopTimerCallBack ;
 
 : init-thread-timer ( -- )
     60 timer-callback <CFTimer> add-timer-to-run-loop ;