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/pgsql.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/pgsql.c')
-rw-r--r-- | src/pgsql.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/pgsql.c b/src/pgsql.c index 7fceacd..c5cf51e 100644 --- a/src/pgsql.c +++ b/src/pgsql.c @@ -106,3 +106,5 @@ result_to_list(PGresult *res) char *val = PQgetvalue(res, i, j); - SCM new_elt = scm_cons(scm_from_locale_string(val), SCM_EOL); + SCM new_elt = scm_cons(val ? + scm_from_locale_string(val) : + SCM_BOOL_F, SCM_EOL); if (head == SCM_EOL) |