added filter-fields word which sets the returnfields slot in the current query object

diff --git a/extra/mongodb/driver/driver.factor b/extra/mongodb/driver/driver.factor
index 294672523cbb6c237d2870cbcc92c4a36235cc0e..e1bf4f6746a0381c2f33956f0c3d0c81177e2cf6 100644 (file)
--- a/extra/mongodb/driver/driver.factor
+++ b/extra/mongodb/driver/driver.factor
@@ -193,6 +193,9 @@ M: mdb-query-msg skip
 : sort ( mdb-query-msg sort-quot -- mdb-query-msg )
     output>array [ 1array >hashtable ] map >>orderby ; inline
 
+: filter-fields ( mdb-query-msg filterseq -- mdb-query-msg )
+    [ asc ] map >hashtable >>returnfields ; inline
+
 : key-spec ( spec-quot -- spec-assoc )
     output>array >hashtable ; inline