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

fix circular dependency

db4
Doug Coleman 2008-04-21 15:06:39 -05:00
parent 750e2c5655
commit 364b3a94c4
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,7 +6,6 @@ math.bitfields.lib namespaces.lib db db.tuples db.types
math.intervals ; math.intervals ;
IN: db.queries IN: db.queries
GENERIC: eval-generator ( singleton -- obj )
GENERIC: where ( specs obj -- ) GENERIC: where ( specs obj -- )
: maybe-make-retryable ( statement -- statement ) : maybe-make-retryable ( statement -- statement )

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

@ -3,7 +3,7 @@
USING: arrays assocs classes db kernel namespaces USING: arrays assocs classes db kernel namespaces
classes.tuple words sequences slots math accessors classes.tuple words sequences slots math accessors
math.parser io prettyprint db.types continuations math.parser io prettyprint db.types continuations
mirrors sequences.lib tools.walker combinators.lib db.queries ; mirrors sequences.lib tools.walker combinators.lib ;
IN: db.tuples IN: db.tuples
: define-persistent ( class table columns -- ) : define-persistent ( class table columns -- )
@ -50,6 +50,7 @@ HOOK: <select-by-slots-statement> db ( tuple class -- tuple )
HOOK: insert-tuple* db ( tuple statement -- ) HOOK: insert-tuple* db ( tuple statement -- )
GENERIC: eval-generator ( singleton -- obj )
SINGLETON: retryable SINGLETON: retryable
: make-retryable ( obj -- obj' ) : make-retryable ( obj -- obj' )