basis: ERROR: changes.

[factor.git] / basis / db / postgresql / lib / lib.factor

diff --git a/basis/db/postgresql/lib/lib.factor b/basis/db/postgresql/lib/lib.factor
index 7f350d17ee82251b41d37bd7de35d327862d02d4..2b18514288d2f81db4cc1c6a24c2c8c4e88db44c 100644 (file)
--- a/basis/db/postgresql/lib/lib.factor
+++ b/basis/db/postgresql/lib/lib.factor
@@ -37,7 +37,7 @@ M: postgresql-result-null summary ( obj -- str )
     drop "PQexec returned f." ;
 
 : postgresql-result-ok? ( res -- ? )
-    [ postgresql-result-null ] unless*
+    [ throw-postgresql-result-null ] unless*
     PQresultStatus
     PGRES_COMMAND_OK PGRES_TUPLES_OK 2array member? ;