From 1c1f9f46c6c0d48b8b30f98224cf50c6e113461d Mon Sep 17 00:00:00 2001
From: Sascha Matzke <sascha.matzke@didolo.org>
Date: Sat, 28 Mar 2009 16:40:57 +0100
Subject: [PATCH] fixed find-one - now returns a result or f

---
 mongodb/driver/driver.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/mongodb/driver/driver.factor b/mongodb/driver/driver.factor
index 430f94f0cd..2f3f8406a3 100644
--- a/mongodb/driver/driver.factor
+++ b/mongodb/driver/driver.factor
@@ -234,9 +234,9 @@ M: mdb-query-msg explain.
     t >>explain find nip . ;
 
 
-GENERIC: find-one ( mdb-query -- result )
+GENERIC: find-one ( mdb-query -- result/f )
 M: mdb-query-msg find-one
-    1 >>return# send-query-plain ;
+    1 >>return# send-query-plain objects>> [ first ] [ f ] if* ;
 
 GENERIC: count ( collection query -- result )
 M: assoc count