diff --git a/basis/furnace/recaptcha/example/example.factor b/basis/furnace/recaptcha/example/example.factor index 6c2acc541e..80ee433bf0 100644 --- a/basis/furnace/recaptcha/example/example.factor +++ b/basis/furnace/recaptcha/example/example.factor @@ -1,6 +1,6 @@ ! Copyright (C) 2009 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors db.sqlite furnace.actions furnace.alloy +USING: accessors sqlite.db2 furnace.actions furnace.alloy furnace.conversations furnace.recaptcha furnace.redirection html.templates.chloe.compiler http.server http.server.dispatchers http.server.responses io.streams.string diff --git a/basis/orm/queries/queries.factor b/basis/orm/queries/queries.factor index 1fa8881a11..c7ed193d44 100644 --- a/basis/orm/queries/queries.factor +++ b/basis/orm/queries/queries.factor @@ -104,10 +104,14 @@ M:: object delete-tuple-sql ( tuple -- statement ) ] if ] each ; +! XXX: include the assoc-filter? : filter-tuple-values ( persistent tuple -- assoc ) [ columns>> ] dip 2dup call-generators - '[ _ over getter>> call( obj -- slot-value ) ] { } map>assoc + '[ _ over getter>> call( obj -- slot-value ) ] { } map>assoc ; + +: filter-empty-tuple-values ( persistent tuple -- assoc ) + filter-tuple-values [ nip ] assoc-filter ; ! : where-primary-key ( statement persistent tuple -- statement ) @@ -140,7 +144,7 @@ M:: object update-tuple-sql ( tuple -- statement ) M: object select-tuple-sql ( tuple -- object ) [