sequences.deep: deep-subseq? -> deep-subsequence?

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

diff --git a/basis/sequences/deep/deep.factor b/basis/sequences/deep/deep.factor
index 53910bb776a5636375f2a7e020c7326679a3f2ae..b376bc116f882b131cfa005c1b1aa324f913ac7b 100644 (file)
--- a/basis/sequences/deep/deep.factor
+++ b/basis/sequences/deep/deep.factor
@@ -54,8 +54,8 @@ M: object branch? drop f ;
         _ swap dup branch? [ member? ] [ 2drop f ] if
     ] deep-find >boolean ;
 
-: deep-subseq? ( subseq seq -- ? )
-    swap '[
+: deep-subsequence? ( seq subseq -- ? )
+   '[
         _ over branch? [ subsequence? ] [ 2drop f ] if
     ] deep-find >boolean ;