From e6145c71c0bb8e230f07f2f661db25476087f26e Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 10 Dec 2008 17:26:54 -0600 Subject: [PATCH] Change a -rot usage to 2dip --- 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 e364359928..7bb509cb67 100644 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -343,7 +343,7 @@ PRIVATE> [ (each) ] dip collect ; inline : 2nth-unsafe ( n seq1 seq2 -- elt1 elt2 ) - [ over ] dip nth-unsafe [ nth-unsafe ] dip ; inline + [ over ] dip [ nth-unsafe ] 2bi@ ; inline : (2each) ( seq1 seq2 quot -- n quot' ) [ [ min-length ] 2keep ] dip @@ -538,12 +538,12 @@ M: sequence <=> : sequence-hashcode-step ( oldhash newpart -- newhash ) >fixnum swap [ - dup -2 fixnum-shift-fast swap 5 fixnum-shift-fast + [ -2 fixnum-shift-fast ] [ 5 fixnum-shift-fast ] bi fixnum+fast fixnum+fast ] keep fixnum-bitxor ; inline : sequence-hashcode ( n seq -- x ) - 0 -rot [ hashcode* sequence-hashcode-step ] with each ; inline + [ 0 ] 2dip [ hashcode* sequence-hashcode-step ] with each ; inline M: reversed equal? over reversed? [ sequence= ] [ 2drop f ] if ;