[MLton-commit] r5303

[Wesley Terpstra]

make the free list also available to queries so that executing them can check if memory can be freed
----------------------------------------------------------------------

U   mltonlib/trunk/ca/terpstra/sqlite3-sml/query.sml

----------------------------------------------------------------------

Modified: mltonlib/trunk/ca/terpstra/sqlite3-sml/query.sml
===================================================================
--- mltonlib/trunk/ca/terpstra/sqlite3-sml/query.sml	2007-02-23 02:07:14 UTC (rev 5302)
+++ mltonlib/trunk/ca/terpstra/sqlite3-sml/query.sml	2007-02-23 02:09:44 UTC (rev 5303)
@@ -80,7 +80,7 @@
          let
             val () = cleanup free
             val pq = case !available of
-                        [] => (cleanup free; Prim.prepare (db, query))
+                        [] => Prim.prepare (db, query)
                       | x :: r => (available := r; x)
             val () = used := !used + 1
             val () = iF (pq, i)