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

[factor.git] / basis / ui / tools / listener / listener-tests.factor

diff --git a/basis/ui/tools/listener/listener-tests.factor b/basis/ui/tools/listener/listener-tests.factor
index fbbac8f3fa137e97b17ecb5ff8479bbeea747c52..94d0b4f263b3d39d7c5793b94b1c63abc226e8e4 100644 (file)
--- a/basis/ui/tools/listener/listener-tests.factor
+++ b/basis/ui/tools/listener/listener-tests.factor
@@ -16,7 +16,7 @@ IN: ui.tools.listener.tests
     [ ] [ <promise> "promise" set ] unit-test
 
     [
-        self "interactor" get (>>thread)
+        self "interactor" get thread<<
         "interactor" get stream-read-quot "promise" get fulfill
     ] "Interactor test" spawn drop
 
@@ -40,7 +40,7 @@ IN: ui.tools.listener.tests
     [ ] [ <promise> "promise" set ] unit-test
 
     [
-        self "interactor" get (>>thread)
+        self "interactor" get thread<<
         "interactor" get stream-readln "promise" get fulfill
     ] "Interactor test" spawn drop