From df9ddd1ddd93f1eedb17ce52b29eca3caea21ed9 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 14 Feb 2018 10:40:07 -0800 Subject: [PATCH] db.sqlite: remove unused "db-table" namespace variable. --- basis/db/sqlite/sqlite.factor | 19 ++++++++----------- 1 file changed, 8 insertions(+), 11 deletions(-) diff --git a/basis/db/sqlite/sqlite.factor b/basis/db/sqlite/sqlite.factor index 29abb0422a..aa71d0ac1d 100644 --- a/basis/db/sqlite/sqlite.factor +++ b/basis/db/sqlite/sqlite.factor @@ -281,18 +281,15 @@ M: sqlite-db-connection persistent-table ( -- assoc ) : create-db-triggers ( sql-specs -- ) [ 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 ] - [ column-name>> "table-id" set ] - [ ] tri - modifiers>> [ [ +foreign-id+ = ] deep-any? ] filter - [ - [ second db-table-name "foreign-table-name" set ] - [ third "foreign-table-id" set ] bi - create-sqlite-triggers - ] each - ] bi + [ second db-table-name "foreign-table-name" set ] + [ third "foreign-table-id" set ] bi + create-sqlite-triggers + ] each ] each ; : sqlite-create-table ( sql-specs class-name -- )