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

[factor.git] / basis / ui / ui.factor

diff --git a/basis/ui/ui.factor b/basis/ui/ui.factor
index bf32b329ceb111fd11bec2a5e7a33fed94082f01..bf186ee9a81b19f0a2e7d5046879cbadbf96e997 100644 (file)
--- a/basis/ui/ui.factor
+++ b/basis/ui/ui.factor
@@ -251,7 +251,7 @@ HOOK: system-alert ui-backend ( caption text -- )
 : define-main-window ( word attributes quot -- )
     [
         '[ [ f _ clone @ open-window ] with-ui ] (( -- )) define-declared
-    ] [ 2drop current-vocab (>>main) ] 3bi ;
+    ] [ 2drop current-vocab main<< ] 3bi ;
 
 SYNTAX: MAIN-WINDOW:
     CREATE