factor: remove rest of double paren words.

[factor.git] / basis / splitting / monotonic / monotonic.factor

diff --git a/basis/splitting/monotonic/monotonic.factor b/basis/splitting/monotonic/monotonic.factor
index e4c075e38ed99f3b99b4ca90eb92acd188bc2c1d..16489d20c68886cb836f08309a41d767690f8d68 100644 (file)
--- a/basis/splitting/monotonic/monotonic.factor
+++ b/basis/splitting/monotonic/monotonic.factor
@@ -6,7 +6,7 @@ IN: splitting.monotonic
 
 <PRIVATE
 
-:: ((monotonic-split)) ( seq quot slice-quot n -- pieces )
+:: monotonic-split-impl ( seq quot slice-quot n -- pieces )
     V{ 0 } clone :> accum
 
     0 seq [ ] [
@@ -22,7 +22,7 @@ IN: splitting.monotonic
     ] { } 2map-as ; inline
 
 : (monotonic-split) ( seq quot slice-quot -- pieces )
-    pick length [ 3drop { } ] [ ((monotonic-split)) ] if-zero ; inline
+    pick length [ 3drop { } ] [ monotonic-split-impl ] if-zero ; inline
 
 PRIVATE>