[fix] stdlib: Fixed cursor valid predicate yet again.

gaetan-sumup · Dec 19, 2011 · 4d612ef · 4d612ef
1 parent 7a183dc
commit 4d612ef
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/stdlib/apis/mongo/cursor.opa b/stdlib/apis/mongo/cursor.opa
@@ -293,7 +293,8 @@ MongoCursor = {{
   valid(c:Mongo.cursor): bool =
     not(c.killed)
     && ((not(c.query_sent) && Option.is_some(c.query)) // initialised but not run
-        || ((c.returned > 0 && (c.current < c.returned)))) // run and still has data
+        || ((c.returned > 0 && (c.current < c.returned))) // run and still has data
+        || not(MongoCommon.is_null_cursorID(c.cid))) // non-zero cursor, more data on server
 
   /**
    * Full [find] function with all parameters.