factor: remove rest of double paren words.

[factor.git] / extra / koszul / koszul.factor

diff --git a/extra/koszul/koszul.factor b/extra/koszul/koszul.factor
index ae1a7bbd3496de652ab80868bd3dc9f3a27d47ee..d5762a01cff3eab007468379d27d051899a529a7 100644 (file)
--- a/extra/koszul/koszul.factor
+++ b/extra/koszul/koszul.factor
@@ -103,9 +103,9 @@ SYMBOL: boundaries
 : d= ( value basis -- )
     boundaries [ ?set-at ] change ;
 
-: ((d)) ( basis -- value ) boundaries get at ;
+: get-boundary ( basis -- value ) boundaries get at ;
 
-: dx.y ( x y -- vec ) [ ((d)) ] dip wedge ;
+: dx.y ( x y -- vec ) [ get-boundary ] dip wedge ;
 
 DEFER: (d)