Changeset 14762 for release/4/postgresql/trunk/postgresql.scm

Timestamp:

05/24/09 22:10:01 (10 months ago)

Author:

sjamaan

Message:

Fix off-by-one error in result-row-alist

Files:

• release/4/postgresql/trunk/postgresql.scm (modified) (1 diff)

release/4/postgresql/trunk/postgresql.scm

@@ -498 +498 @@
     (if (= column 0)
         alist
-        (loop (cons (cons (PQfname (pg-result-ptr result) column)
+        (loop (cons (cons (string->symbol
+                           (PQfname (pg-result-ptr result) (sub1 column)))
                           (result-value* result row (sub1 column))) alist)
               (sub1 column)))))