mongodb: using "if-empty" makes it cleaner.

diff --git a/extra/mongodb/driver/driver.factor b/extra/mongodb/driver/driver.factor
index eebfb10c5caeeac169d33564a6b5d378b88dd16f..3ae28d4c204948aba710d194e94d695e9e86bf11 100644 (file)
--- a/extra/mongodb/driver/driver.factor
+++ b/extra/mongodb/driver/driver.factor
@@ -242,7 +242,7 @@ M: mdb-cursor find
 : find-one ( mdb-query-msg -- result/f )
     fix-query-collection 
     1 >>return# send-query-plain objects>>
-    dup empty? [ drop f ] [ first ] if ;
+    [ f ] [ first ] if-empty ;
 
 : count ( mdb-query-msg -- result )
     [ count-cmd make-cmd ] dip

diff --git a/extra/mongodb/gridfs/gridfs.factor b/extra/mongodb/gridfs/gridfs.factor
index 0c5ba6f9a62b782a922ed3f5cf4b4b98361dceda..57362c9a18dbf20b83b05fd1e326dcf42692ad9a 100644 (file)
--- a/extra/mongodb/gridfs/gridfs.factor
+++ b/extra/mongodb/gridfs/gridfs.factor
@@ -269,7 +269,7 @@ M: gridfs-input-stream stream-element-type drop +byte+ ;
 
 M: gridfs-input-stream stream-read ( n stream -- seq/f )
     over <byte-vector> [ (stream-read) ] [ ] bi
-    dup empty? [ drop f ] [ >byte-array ] if ;
+    [ f ] [ >byte-array ] if-empty ;
 
 M: gridfs-input-stream stream-read-partial ( n stream -- seq/f )
     (stream-read-partial) ;