Language change: tuple slot setter words with stack effect ( value object -- ) are...

[factor.git] / extra / game / loop / loop.factor

diff --git a/extra/game/loop/loop.factor b/extra/game/loop/loop.factor
index 312d7dbd1c965c562d307252bc8dad0307585401..fa4d4adcb32505cc9ac53eac726d2e3ac09899df 100644 (file)
--- a/extra/game/loop/loop.factor
+++ b/extra/game/loop/loop.factor
@@ -95,7 +95,7 @@ PRIVATE>
     t >>running?
     [ reset-loop-benchmark ]
     [ [ run-loop ] curry "game loop" spawn ]
-    [ (>>thread) ] tri ;
+    [ thread<< ] tri ;
 
 : stop-loop ( loop -- )
     f >>running?