fixed find-one - now returns a result or f

db4
Sascha Matzke 2009-03-28 16:40:57 +01:00
parent ae331d9373
commit 1c1f9f46c6
1 changed files with 2 additions and 2 deletions

View File

@ -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