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

[factor.git] / basis / values / values.factor

diff --git a/basis/values/values.factor b/basis/values/values.factor
index 4329affe82b33ec342ec5127a54ab458d5b56b61..61217b10379f90544b675f919576c491bdd7aea0 100644 (file)
--- a/basis/values/values.factor
+++ b/basis/values/values.factor
@@ -41,7 +41,7 @@ M: value-word definer drop \ VALUE: f ;
 M: value-word definition drop f ;
 
 : set-value ( value word -- )
-    def>> first (>>obj) ;
+    def>> first obj<< ;
 
 SYNTAX: to:
     scan-word literalize suffix!