core: subseq-index? -> subseq-of?

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

diff --git a/basis/db/sqlite/sqlite.factor b/basis/db/sqlite/sqlite.factor
index 2aea3e1fb1281e28f9ec8a9e817f81ea5fd9e3f0..ecc115bd1517c09d135e09e724949005f966a844 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>> [ +not-null+ = ] none? ;
 
 : delete-cascade? ( -- ? )

-    "sql-spec" get modifiers>> { +on-delete+ +cascade+ } subseq-index? ;
+    "sql-spec" get modifiers>> { +on-delete+ +cascade+ } subseq-of? ;

 
 : sqlite-trigger, ( string -- )
     { } { } <simple-statement> 3, ;
 
 : sqlite-trigger, ( string -- )
     { } { } <simple-statement> 3, ;