Removing more >r/r> usages

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

diff --git a/basis/models/models.factor b/basis/models/models.factor
index 45519f70219d6fa697c18db825cd60b111924cf6..5da564b9d08fed793d59b8761504c7c3cbd1985e 100644 (file)
--- a/basis/models/models.factor
+++ b/basis/models/models.factor
@@ -91,7 +91,7 @@ M: model update-model drop ;
     ] if ;
 
 : ((change-model)) ( model quot -- newvalue model )
-    over >r >r value>> r> call r> ; inline
+    over [ [ value>> ] dip call ] dip ; inline
 
 : change-model ( model quot -- )
     ((change-model)) set-model ; inline