Move function

extra/core-foundation/core-foundation.factor

@@ -85,5 +85,3 @@ FUNCTION: void CFRelease ( void* cf ) ;
     ] [
         "Cannot load bundled named " prepend throw
     ] ?if ;
-
-FUNCTION: CFRunLoopRef CFRunLoopGetMain ( ) ;

extra/core-foundation/run-loop/run-loop.factor

@@ -1,7 +1,7 @@
 ! Copyright (C) 2008 Slava Pestov
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien.syntax kernel threads init
-cocoa.application core-foundation ;
+USING: alien.syntax kernel threads init namespaces alien
+core-foundation ;
 IN: core-foundation.run-loop
 
 : kCFRunLoopRunFinished 1 ; inline
@@ -11,13 +11,21 @@ IN: core-foundation.run-loop
 
 TYPEDEF: void* CFRunLoopRef
 
+FUNCTION: CFRunLoopRef CFRunLoopGetMain ( ) ;
+
 FUNCTION: SInt32 CFRunLoopRunInMode (
    CFStringRef mode,
    CFTimeInterval seconds,
    Boolean returnAfterSourceHandled
 ) ;
 
-: CFRunLoopDefaultMode "kCFRunLoopDefaultMode" <NSString> ;
+: CFRunLoopDefaultMode ( -- alien )
+    #! Ugly, but we don't have static NSStrings
+    \ CFRunLoopDefaultMode get-global dup expired? [
+        drop
+        "kCFRunLoopDefaultMode" <CFString>
+        dup \ CFRunLoopDefaultMode set-global
+    ] when ;
 
 : run-loop-thread ( -- )
     CFRunLoopDefaultMode 0 f CFRunLoopRunInMode