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

[factor.git] / basis / models / models.factor

diff --git a/basis/models/models.factor b/basis/models/models.factor
index f9927cfd4cc181b1f549a59a904117c525498cff..1b6f0f30c270f97f03743076c6a7deb329e043fe 100644 (file)
--- a/basis/models/models.factor
+++ b/basis/models/models.factor
@@ -94,7 +94,7 @@ M: model update-model drop ;
     ((change-model)) set-model ; inline
 
 : (change-model) ( model quot -- )
-    ((change-model)) (>>value) ; inline
+    ((change-model)) value<< ; inline
 
 GENERIC: range-value ( model -- value )
 GENERIC: range-page-value ( model -- value )