models.combinators: move weird reduce* word here

diff --git a/extra/models/combinators/combinators.factor b/extra/models/combinators/combinators.factor
index 11e94ed3c68f416c5d989608bc733f1d1908d602..3ff4d98fee7d279195c7989981acd01ac73f9d64 100644 (file)
--- a/extra/models/combinators/combinators.factor
+++ b/extra/models/combinators/combinators.factor
@@ -30,6 +30,15 @@ M: filter-model (model-changed) [ value>> ] dip 2dup quot>> call( a -- ? )
    [ set-model ] [ 2drop ] if ;
 : filter-model ( model quot -- filter-model ) [ 1array \ filter-model <multi-model> ] dip >>quot ;
 
+<PRIVATE
+! Quot must have static stack effect, unlike "reduce"
+:: reduce* ( seq identity quot: ( prev elt -- next ) -- result )
+    seq [ identity ] [
+        unclip identity swap quot call( prev elt -- next )
+        quot reduce*
+    ] if-empty ; inline recursive
+PRIVATE>
+
 TUPLE: fold-model < multi-model quot base values ;
 M: fold-model (model-changed) 2dup base>> =
     [ [ [ value>> ] [ [ values>> ] [ quot>> ] bi ] bi* swapd reduce* ] keep set-model ]

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index e2e6250c792d2a2b563ee0459830c50205e8240f..e6f24f60427846fce81e69bae380ceb059e0888f 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -4,13 +4,6 @@ math.order ranges sequences sequences.private sets shuffle
 sorting splitting vectors ;
 IN: sequences.extras
 
-! Quot must have static stack effect, unlike "reduce"
-:: reduce* ( seq identity quot: ( prev elt -- next ) -- result )
-    seq [ identity ] [
-        unclip identity swap quot call( prev elt -- next )
-        quot reduce*
-    ] if-empty ; inline recursive
-
 : find-all ( ... seq quot: ( ... elt -- ... ? ) -- ... elts )
     [ <enumerated> ] dip '[ nip @ ] assoc-filter ; inline