diff options
author | Sergey Poznyakoff <gray@Pirx.gnu.org.ua> | 2010-03-22 14:54:13 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@Pirx.gnu.org.ua> | 2010-03-22 14:54:13 +0200 |
commit | 9338032d60a9a480f56d7efc105e721f5e6faf12 (patch) | |
tree | 41f44dba7407de7222bd6fcfbbb49c7844b30139 /src/mysql.c | |
parent | ae7f9b02e9ad941a0c3e68787268fe651a043c33 (diff) | |
download | gamma-9338032d60a9a480f56d7efc105e721f5e6faf12.tar.gz gamma-9338032d60a9a480f56d7efc105e721f5e6faf12.tar.bz2 |
Bugfix.
* src/mysql.c (s_mysql_query): Represent NULL
columns as #f
* src/pgsql.c (result_to_list): Likewise.
Diffstat (limited to 'src/mysql.c')
-rw-r--r-- | src/mysql.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/mysql.c b/src/mysql.c index 08b4ab8..81364b4 100644 --- a/src/mysql.c +++ b/src/mysql.c @@ -165,8 +165,11 @@ s_mysql_query(struct sql_connect *conn, const char *query) if (!row) break; for (j = 0; j < nfields; j++) { - SCM new_elt = scm_cons(scm_from_locale_string(row[j]), - SCM_EOL); + SCM new_elt = + scm_cons(row[j] ? + scm_from_locale_string(row[j]) : + SCM_BOOL_F, + SCM_EOL); if (head == SCM_EOL) head = new_elt; else |