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

[factor.git] / extra / managed-server / managed-server.factor

diff --git a/extra/managed-server/managed-server.factor b/extra/managed-server/managed-server.factor
index acb3c848252c6ea81503ea70e92b8b8b000e2a97..d62604476623418bd3834773827d7482d3c5cebd 100644 (file)
--- a/extra/managed-server/managed-server.factor
+++ b/extra/managed-server/managed-server.factor
@@ -67,7 +67,7 @@ PRIVATE>
     username clients key? [
         handle-already-logged-in
     ] [
-        t client (>>logged-in?)
+        t client logged-in?<<
         client username clients set-at
     ] if ;