factor: remove rest of double paren words.

[factor.git] / basis / ui / gadgets / tables / tables.factor

diff --git a/basis/ui/gadgets/tables/tables.factor b/basis/ui/gadgets/tables/tables.factor
index f74627af2eb745639c5a055f3264b9a32f46f7a6..5bd9209c880252074a3025bdc0b52ca58f661f5e 100644 (file)
--- a/basis/ui/gadgets/tables/tables.factor
+++ b/basis/ui/gadgets/tables/tables.factor
@@ -247,7 +247,7 @@ PRIVATE>
 : hide-mouse-help ( table -- )
     f >>mouse-index [ update-status ] [ relayout-1 ] bi ;
 
-: ((select-row)) ( n table -- )
+: select-table-row ( n table -- )
     [ selection-index>> set-model ]
     [ [ selected-row drop ] keep selection>> set-model ]
     bi ;
@@ -282,7 +282,7 @@ PRIVATE>
             [ initial-selection-index ]
         } 1||
     ] keep
-    over [ ((select-row)) ] [
+    over [ select-table-row ] [
         [ selection-index>> set-model ]
         [ selection>> set-model ]
         2bi
@@ -303,7 +303,7 @@ M: table model-changed
 
 : (select-row) ( table n -- )
     [ scroll-to-row ]
-    [ swap ((select-row)) ]
+    [ swap select-table-row ]
     [ drop relayout-1 ]
     2tri ;