From d7d64b202f19ed6ec9cc4374e8625352b093b520 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 8 Mar 2008 12:02:19 -0600 Subject: [PATCH] minor cleanup --- extra/db/sql/sql.factor | 5 ++--- extra/db/tuples/tuples.factor | 1 - 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/extra/db/sql/sql.factor b/extra/db/sql/sql.factor index 062eab8bc8..1de4bdfb5a 100755 --- a/extra/db/sql/sql.factor +++ b/extra/db/sql/sql.factor @@ -1,7 +1,6 @@ USING: kernel parser quotations tuples words -namespaces.lib namespaces sequences bake arrays combinators -prettyprint strings math.parser new-slots accessors -sequences.lib math symbols ; +namespaces.lib namespaces sequences arrays combinators +prettyprint strings math.parser sequences.lib math symbols ; USE: tools.walker IN: db.sql diff --git a/extra/db/tuples/tuples.factor b/extra/db/tuples/tuples.factor index bc7fcba034..32055ccedc 100755 --- a/extra/db/tuples/tuples.factor +++ b/extra/db/tuples/tuples.factor @@ -84,7 +84,6 @@ HOOK: insert-tuple* db ( tuple statement -- ) [ bind-tuple ] keep execute-statement ; : insert-tuple ( tuple -- ) - ! break dup class db-columns find-primary-key assigned-id? [ insert-assigned ] [