core-foundation.run-loop: Fix botched rename. Ugh. Fixes #775 on mac at least.

diff --git a/basis/core-foundation/run-loop/run-loop.factor b/basis/core-foundation/run-loop/run-loop.factor
index 2e09c522156f079aa6a622caa794b8cf1b87fdba..638a00404451b2bf2ab7f6569966f0608adac7ab 100644 (file)
--- a/basis/core-foundation/run-loop/run-loop.factor
+++ b/basis/core-foundation/run-loop/run-loop.factor
@@ -60,14 +60,16 @@ CFSTRING: CFRunLoopDefaultMode "kCFRunLoopDefaultMode"
 
 TUPLE: run-loop-state fds sources timers ;
 
+SYMBOL: run-loop
+
 : <run-loop> ( -- run-loop )
     V{ } clone V{ } clone V{ } clone \ run-loop-state boa ;
 
-: run-loop ( -- run-loop )
-    \ run-loop-state [ <run-loop> ] initialize-alien ;
+: get-run-loop ( -- run-loop )
+    \ run-loop [ <run-loop> ] initialize-alien ;
 
 : add-source-to-run-loop ( source -- )
-    [ run-loop sources>> push ]
+    [ get-run-loop sources>> push ]
     [
         CFRunLoopGetMain
         swap CFRunLoopDefaultMode
@@ -81,7 +83,7 @@ TUPLE: run-loop-state fds sources timers ;
     [
         <CFFileDescriptor> |CFRelease
         [ enable-all-callbacks ]
-        [ run-loop fds>> push ]
+        [ get-run-loop fds>> push ]
         [ create-fd-source |CFRelease add-source-to-run-loop ]
         tri
     ] with-destructors ;
@@ -100,7 +102,7 @@ PRIVATE>
 
 : add-timer-to-run-loop ( timer -- )
     [ reset-timer ]
-    [ run-loop timers>> push ]
+    [ get-run-loop timers>> push ]
     [
         CFRunLoopGetMain
         swap CFRunLoopDefaultMode
@@ -108,13 +110,13 @@ PRIVATE>
     ] tri ;
 
 : invalidate-run-loop-timers ( -- )
-    run-loop [
+    get-run-loop [
         [ [ CFRunLoopTimerInvalidate ] [ CFRelease ] bi ] each
         V{ } clone
     ] change-timers drop ;
 
 : reset-run-loop ( -- )
-    run-loop
+    get-run-loop
     [ timers>> [ reset-timer ] each ]
     [ fds>> [ enable-all-callbacks ] each ] bi ;