diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-03-06 18:11:20 +0200 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-03-06 18:11:20 +0200 |
| commit | d68261197e99fe472e0d75cefd30db4c4e43775e (patch) | |
| tree | cadf600fc0fa195b1fe369d319a496e2cdbbf95c /src/mysql.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.
Diffstat (limited to 'src/mysql.c')
| -rw-r--r-- | src/mysql.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/mysql.c b/src/mysql.c index f4e178f..2499154 100644 --- a/src/mysql.c +++ b/src/mysql.c @@ -172,7 +172,7 @@ s_mysql_query(struct sql_connect *conn, const char *query) mysql_free_result(result); } else { /* should it have returned something? */ if (mysql_field_count(mysql) == 0) { - cell = scm_makenum(mysql_affected_rows(mysql)); + cell = scm_to_ulong(mysql_affected_rows(mysql)); } else { /* mysql_store_result() should have returned data */ scm_throw(gsql_error, scm_list_2(scm_makfrom0str("Query should have returned data"), |