factor: remove rest of double paren words.

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

diff --git a/basis/models/models.factor b/basis/models/models.factor
index 2f051a1a5ddaf921188c65ac07414a1afb909d92..6d3a9a9e83241323667430cf448c26028641cc0e 100644 (file)
--- a/basis/models/models.factor
+++ b/basis/models/models.factor
@@ -90,14 +90,14 @@ M: model update-model drop ;
 : ?set-model ( value model -- )
     2dup value>> = [ 2drop ] [ set-model ] if ;
 
-: ((change-model)) ( model quot -- newvalue model )
+: call-change-model ( model quot -- newvalue model )
     over [ [ value>> ] dip call ] dip ; inline
 
 : change-model ( ..a model quot: ( ..a obj -- ..b newobj ) -- ..b )
-    ((change-model)) set-model ; inline
+    call-change-model set-model ; inline
 
 : (change-model) ( ..a model quot: ( ..a obj -- ..b newobj ) -- ..b )
-    ((change-model)) value<< ; inline
+    call-change-model value<< ; inline
 
 GENERIC: range-value ( model -- value )
 GENERIC: range-page-value ( model -- value )