summaryrefslogtreecommitdiffabout
path: root/src/pgsql.c
authorSergey Poznyakoff <gray@Pirx.gnu.org.ua>2010-03-22 12:54:13 (GMT)
committer Sergey Poznyakoff <gray@Pirx.gnu.org.ua>2010-03-22 12:54:13 (GMT)
commit9338032d60a9a480f56d7efc105e721f5e6faf12 (patch) (side-by-side diff)
tree41f44dba7407de7222bd6fcfbbb49c7844b30139 /src/pgsql.c
parentae7f9b02e9ad941a0c3e68787268fe651a043c33 (diff)
downloadgamma-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') (more/less context) (ignore whitespace changes)
-rw-r--r--src/pgsql.c4
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
@@ -104,7 +104,9 @@ result_to_list(PGresult *res)
for (j = 0; j < nfields; j++) {
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)
head = new_elt;
else

Return to:

Send suggestions and report system problems to the System administrator.