From 399838b960fcf51219e242802163d0cba98e04dd Mon Sep 17 00:00:00 2001
From: Sascha Matzke <sascha.matzke@didolo.org>
Date: Thu, 29 Jan 2009 13:50:42 +0100
Subject: [PATCH] rewrote low-level (find-one) word as wrapper around (find)

---
 mongodb/query/query.factor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/mongodb/query/query.factor b/mongodb/query/query.factor
index c3477d2678..ca3b059537 100644
--- a/mongodb/query/query.factor
+++ b/mongodb/query/query.factor
@@ -23,7 +23,8 @@ PRIVATE>
      '[ _ write-message read-message ] (execute-query) ; inline
 
 : (find-one) ( inet query -- result )
-     (find) objects>> first ; inline
+    1 >>return#
+    (find) ; inline
 
 : build-result ( resultmsg -- mdb-result )
     [ mdb-result new ] dip
@@ -48,7 +49,7 @@ PRIVATE>
 : create-collection ( mdb-collection --  )
      dup name>> "create" H{ } clone [ set-at ] keep 
      [ mdb>> [ master>> ] [ name>> ] bi "%s.$cmd" sprintf ] dip
-     <mdb-query-one-msg> (find-one)
+     <mdb-query-msg> (find-one) objects>> first
      check-ok
      [ [ ensure-indices ] keep dup name>> mdb>> collections>> set-at ]
      [ "could not create collection" throw ] if ;