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

[factor.git] / basis / db / sqlite / sqlite.factor

diff --git a/basis/db/sqlite/sqlite.factor b/basis/db/sqlite/sqlite.factor
index 046e662f5cf3ef2a21b133d2d0799f2e58a9db3b..dc0e0fd590cb4c0540ebd8c2bba0a71ed8899a86 100644 (file)
--- a/basis/db/sqlite/sqlite.factor
+++ b/basis/db/sqlite/sqlite.factor
@@ -260,7 +260,7 @@ M: sqlite-db-connection persistent-table
     "sql-spec" get modifiers>> [ +not-null+ = ] none? ;
 
 : delete-cascade? ( -- ? )
-    "sql-spec" get modifiers>> { +on-delete+ +cascade+ } find-subseq? ;
+    "sql-spec" get modifiers>> { +on-delete+ +cascade+ } subsequence? ;
 
 : sqlite-trigger, ( string -- )
     { } { } <simple-statement> 3, ;