diff --git a/extra/db/queries/queries.factor b/extra/db/queries/queries.factor index 9aa29bbb73..c9fd9a38a4 100644 --- a/extra/db/queries/queries.factor +++ b/extra/db/queries/queries.factor @@ -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 ) diff --git a/extra/db/tuples/tuples.factor b/extra/db/tuples/tuples.factor index d91e9b2758..fd4cfb906f 100755 --- a/extra/db/tuples/tuples.factor +++ b/extra/db/tuples/tuples.factor @@ -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' )