summaryrefslogtreecommitdiffabout
path: root/src/pgsql.c
Unidiff
Diffstat (limited to 'src/pgsql.c') (more/less context) (show whitespace changes)
-rw-r--r--src/pgsql.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/pgsql.c b/src/pgsql.c
index 2a7fe23..c1a8e41 100644
--- a/src/pgsql.c
+++ b/src/pgsql.c
@@ -134,13 +134,13 @@ s_pgsql_query(struct sql_connect *conn, const char *query)
134 134
135 stat = PQresultStatus(res); 135 stat = PQresultStatus(res);
136 136
137 switch (stat) { 137 switch (stat) {
138 case PGRES_COMMAND_OK: 138 case PGRES_COMMAND_OK:
139 /* Successful completion of a command returning no data */ 139 /* Successful completion of a command returning no data */
140 cell = scm_makenum(strtoul(PQcmdTuples(res), NULL, 0)); 140 cell = scm_to_ulong(strtoul(PQcmdTuples(res), NULL, 0));
141 break; 141 break;
142 case PGRES_TUPLES_OK: 142 case PGRES_TUPLES_OK:
143 /* The query successfully executed */ 143 /* The query successfully executed */
144 cell = result_to_list(res); 144 cell = result_to_list(res);
145 PQclear(res); 145 PQclear(res);
146 break; 146 break;

Return to:

Send suggestions and report system problems to the System administrator.