From fdff43ee0023a21fee92222d2813c19a2837705f Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 12 Sep 2008 11:32:40 -0500 Subject: [PATCH] Fix load problem --- core/sequences/sequences.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index ae895f4853..57dba9ed4e 100755 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -747,6 +747,9 @@ PRIVATE> : unclip-slice ( seq -- rest first ) [ rest-slice ] [ first ] bi ; inline +: 2unclip-slice ( seq1 seq2 -- seq1' seq2' elt1 elt2 ) + [ unclip-slice ] bi@ swapd ; inline + : map-reduce ( seq map-quot reduce-quot -- result ) [ [ unclip-slice ] dip [ call ] keep ] dip compose reduce ; inline @@ -755,9 +758,6 @@ PRIVATE> [ [ 2unclip-slice ] dip [ call ] keep ] dip compose 2reduce ; inline -: 2unclip-slice ( seq1 seq2 -- seq1' seq2' elt1 elt2 ) - [ unclip-slice ] bi@ swapd ; inline - : unclip-last-slice ( seq -- butlast last ) [ but-last-slice ] [ peek ] bi ; inline