fix circular dependency
parent
750e2c5655
commit
364b3a94c4
|
@ -6,7 +6,6 @@ math.bitfields.lib namespaces.lib db db.tuples db.types
|
|||
math.intervals ;
|
||||
IN: db.queries
|
||||
|
||||
GENERIC: eval-generator ( singleton -- obj )
|
||||
GENERIC: where ( specs obj -- )
|
||||
|
||||
: maybe-make-retryable ( statement -- statement )
|
||||
|
|
|
@ -3,7 +3,7 @@
|
|||
USING: arrays assocs classes db kernel namespaces
|
||||
classes.tuple words sequences slots math accessors
|
||||
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
|
||||
|
||||
: define-persistent ( class table columns -- )
|
||||
|
@ -50,6 +50,7 @@ HOOK: <select-by-slots-statement> db ( tuple class -- tuple )
|
|||
|
||||
HOOK: insert-tuple* db ( tuple statement -- )
|
||||
|
||||
GENERIC: eval-generator ( singleton -- obj )
|
||||
SINGLETON: retryable
|
||||
|
||||
: make-retryable ( obj -- obj' )
|
||||
|
|
Loading…
Reference in New Issue