Revert "sequences: swap stack arguments for start/start*/subseq?."

[factor.git] / basis / sequences / deep / deep.factor

diff --git a/basis/sequences/deep/deep.factor b/basis/sequences/deep/deep.factor
index d90c167b2a94df50dd2edf0babf02316122e3d19..e4edd80685ecf5096a58a884f7607c7b9daf8d05 100644 (file)
--- a/basis/sequences/deep/deep.factor
+++ b/basis/sequences/deep/deep.factor
@@ -54,9 +54,9 @@ M: object branch? drop f ;
         _ swap dup branch? [ member? ] [ 2drop f ] if
     ] deep-find >boolean ;
 
-: deep-subseq? ( seq subseq -- ? )
-    '[
-        dup branch? [ _ subseq? ] [ drop f ] if
+: deep-subseq? ( subseq seq -- ? )
+    swap '[
+        _ swap dup branch? [ subseq? ] [ 2drop f ] if
     ] deep-find >boolean ;
 
 : deep-map! ( ... obj quot: ( ... elt -- ... elt' ) -- ... obj )