core: find-subseq -> subsequence-starts, find-subseq-from -> subsequence-starts-from

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

diff --git a/basis/sequences/deep/deep.factor b/basis/sequences/deep/deep.factor
index 36911bc12b8e9441c7ad7a432aa9617a19a0e6ba..53910bb776a5636375f2a7e020c7326679a3f2ae 100644 (file)
--- a/basis/sequences/deep/deep.factor
+++ b/basis/sequences/deep/deep.factor
@@ -56,7 +56,7 @@ M: object branch? drop f ;
 
 : deep-subseq? ( subseq seq -- ? )
     swap '[
-        _ swap dup branch? [ subseq? ] [ 2drop f ] if
+        _ over branch? [ subsequence? ] [ 2drop f ] if
     ] deep-find >boolean ;
 
 : deep-map! ( ... obj quot: ( ... elt -- ... elt' ) -- ... obj )