author | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-03-06 16:11:20 (GMT) |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-03-06 16:11:20 (GMT) |
commit | d68261197e99fe472e0d75cefd30db4c4e43775e (patch) (unidiff) | |
tree | cadf600fc0fa195b1fe369d319a496e2cdbbf95c /src/pgsql.c | |
parent | 68015bc90675e797d2d0269a6581da0cc497f7e7 (diff) | |
download | gamma-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.
-rw-r--r-- | src/pgsql.c | 2 |
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) | |||
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 */ |