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

minor cleanup

db4
Doug Coleman 2008-03-08 12:02:19 -06:00
parent 3b7d630a84
commit d7d64b202f
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/db/sql/sql.factor
View File

@ -1,7 +1,6 @@
USING: kernel parser quotations tuples words USING: kernel parser quotations tuples words
namespaces.lib namespaces sequences bake arrays combinators namespaces.lib namespaces sequences arrays combinators
prettyprint strings math.parser new-slots accessors prettyprint strings math.parser sequences.lib math symbols ;
sequences.lib math symbols ;
USE: tools.walker USE: tools.walker
IN: db.sql IN: db.sql

1
extra/db/tuples/tuples.factor
View File

@ -84,7 +84,6 @@ HOOK: insert-tuple* db ( tuple statement -- )
[ bind-tuple ] keep execute-statement ; [ bind-tuple ] keep execute-statement ;
: insert-tuple ( tuple -- ) : insert-tuple ( tuple -- )
! break
dup class db-columns find-primary-key assigned-id? [ dup class db-columns find-primary-key assigned-id? [
insert-assigned insert-assigned
] [ ] [