From 8a40bfdc90ee8c0a1dd2544e158dd2ce98a82c59 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Thu, 24 Apr 2003 13:30:38 +0000
Subject: [PATCH] + fixed return values for odbc-sql-get-data

---
 scsh/odbc/odbc.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/scsh/odbc/odbc.scm b/scsh/odbc/odbc.scm
index 8ee5df2..9f76c10 100644
--- a/scsh/odbc/odbc.scm
+++ b/scsh/odbc/odbc.scm
@@ -871,8 +871,9 @@
 			  "odbc_sql_row_count")
 
 (define (odbc-sql-get-data stmt-handle column-number target-type)
-  (odbc-sql-get-data-internal (statement-handle-handle stmt-handle)
-			      column-number target-type))
+  (apply values
+	 (odbc-sql-get-data-internal (statement-handle-handle stmt-handle)
+				     column-number target-type)))
 			      
 (import-lambda-definition odbc-sql-get-data-internal
 			  (stmt-handle column-number target-type)