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

[factor.git] / extra / variables / variables.factor

diff --git a/extra/variables/variables.factor b/extra/variables/variables.factor
index 705e1f19458440da20cf4f3b70af2b6671d296e7..e4632d04eaac90a59633729d1b6b2b2d6361d002 100644 (file)
--- a/extra/variables/variables.factor
+++ b/extra/variables/variables.factor
@@ -72,7 +72,7 @@ PREDICATE: global-variable < variable
 : [global-getter] ( box -- quot )
     '[ _ value>> ] ;
 : [global-setter] ( box -- quot )
-    '[ _ (>>value) ] ;
+    '[ _ value<< ] ;
 
 : define-global ( word -- )
     global-box new [ [global-getter] ] [ [global-setter] ] bi (define-variable) ;