aboutsummaryrefslogtreecommitdiff
path: root/src/pgsql.c
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2010-03-06 18:11:20 +0200
committerSergey Poznyakoff <gray@gnu.org.ua>2010-03-06 18:11:20 +0200
commitd68261197e99fe472e0d75cefd30db4c4e43775e (patch)
treecadf600fc0fa195b1fe369d319a496e2cdbbf95c /src/pgsql.c
parent68015bc90675e797d2d0269a6581da0cc497f7e7 (diff)
downloadgamma-d68261197e99fe472e0d75cefd30db4c4e43775e.tar.gz
gamma-d68261197e99fe472e0d75cefd30db4c4e43775e.tar.bz2
Remove uses of scm_i_ functions.
* src/gsql_lib.c (scm_makenum): Remove. * src/guile-sql.h (scm_makenum): Remove. * src/mysql.c, src/pgsql.c: Use scm_to_ulong instead of scm_makenum.
Diffstat (limited to 'src/pgsql.c')
-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
@@ -137,7 +137,7 @@ s_pgsql_query(struct sql_connect *conn, const char *query)
switch (stat) {
case PGRES_COMMAND_OK:
/* Successful completion of a command returning no data */
- cell = scm_makenum(strtoul(PQcmdTuples(res), NULL, 0));
+ cell = scm_to_ulong(strtoul(PQcmdTuples(res), NULL, 0));
break;
case PGRES_TUPLES_OK:
/* The query successfully executed */

Return to:

Send suggestions and report system problems to the System administrator.