core-foundation.run-loop: Rename run-loop.

diff --git a/basis/core-foundation/run-loop/run-loop.factor b/basis/core-foundation/run-loop/run-loop.factor
index 3f789c6b79eb754671a10b4faf19550fa7d00235..2e09c522156f079aa6a622caa794b8cf1b87fdba 100644 (file)
--- a/basis/core-foundation/run-loop/run-loop.factor
+++ b/basis/core-foundation/run-loop/run-loop.factor
@@ -58,13 +58,13 @@ FUNCTION: void CFRunLoopRemoveTimer (
 
 CFSTRING: CFRunLoopDefaultMode "kCFRunLoopDefaultMode"
 
-TUPLE: run-loop fds sources timers ;
+TUPLE: run-loop-state fds sources timers ;
 
 : <run-loop> ( -- run-loop )
-    V{ } clone V{ } clone V{ } clone \ run-loop boa ;
+    V{ } clone V{ } clone V{ } clone \ run-loop-state boa ;
 
 : run-loop ( -- run-loop )
-    \ run-loop [ <run-loop> ] initialize-alien ;
+    \ run-loop-state [ <run-loop> ] initialize-alien ;
 
 : add-source-to-run-loop ( source -- )
     [ run-loop sources>> push ]