steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

db.sqlite: remove unused "db-table" namespace variable.

windows-high-dpi
John Benediktsson 2018-02-14 10:40:07 -08:00
parent 276534a5e1
commit df9ddd1ddd
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
basis/db/sqlite/sqlite.factor
View File

@ -281,18 +281,15 @@ M: sqlite-db-connection persistent-table ( -- assoc )
: create-db-triggers ( sql-specs -- ) : create-db-triggers ( sql-specs -- )
[ modifiers>> [ +foreign-id+ = ] deep-any? ] filter [ modifiers>> [ +foreign-id+ = ] deep-any? ] filter
[ [
[ class>> db-table-name "db-table" set ] [ "sql-spec" set ]
[ column-name>> "table-id" set ]
[ ] tri
modifiers>> [ [ +foreign-id+ = ] deep-any? ] filter
[ [
[ "sql-spec" set ] [ second db-table-name "foreign-table-name" set ]
[ column-name>> "table-id" set ] [ third "foreign-table-id" set ] bi
[ ] tri create-sqlite-triggers
modifiers>> [ [ +foreign-id+ = ] deep-any? ] filter ] each
[
[ second db-table-name "foreign-table-name" set ]
[ third "foreign-table-id" set ] bi
create-sqlite-triggers
] each
] bi
] each ; ] each ;
: sqlite-create-table ( sql-specs class-name -- ) : sqlite-create-table ( sql-specs class-name -- )