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

[factor.git] / basis / tools / walker / walker.factor

diff --git a/basis/tools/walker/walker.factor b/basis/tools/walker/walker.factor
index 35a9ce7787e831f99acdabced598c16a654328b0..3cc53cda9d58ef059ef74028b9da17637dea3338 100644 (file)
--- a/basis/tools/walker/walker.factor
+++ b/basis/tools/walker/walker.factor
@@ -145,7 +145,7 @@ SYMBOL: +stopped+
 : associate-thread ( walker -- )
     walker-thread tset
     [ f walker-thread tget send-synchronous drop ]
-    self (>>exit-handler) ;
+    self exit-handler<< ;
 
 : start-walker-thread ( status continuation -- thread' )
     self [