minor cleanup

2008-03-08 12:02:19 -06:00 · 2008-03-08 12:02:19 -06:00 · d7d64b202f
parent 3b7d630a84
commit d7d64b202f
2 changed files with 2 additions and 4 deletions
--- 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

--- 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
    ] [