From 5f9eb17fed11da28451485098235062624c6ccf1 Mon Sep 17 00:00:00 2001 From: eknauel Date: Thu, 24 Apr 2003 14:51:20 +0000 Subject: [PATCH] + fixed confusion of environment/connection handles --- scsh/odbc/odbc.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scsh/odbc/odbc.scm b/scsh/odbc/odbc.scm index 9f76c10..d06dc3b 100644 --- a/scsh/odbc/odbc.scm +++ b/scsh/odbc/odbc.scm @@ -566,7 +566,7 @@ (status (car status.value)) (value (cadr status.value))) (if (odbc-call-successful? status) - (let ((conn-handle (really-make-environment-handle value))) + (let ((conn-handle (really-make-connection-handle value env-handle #f))) (add-finalizer! conn-handle free-connection-handle) (values status conn-handle)) (values status value)))) @@ -587,7 +587,7 @@ (status (car status.value)) (value (cadr status.value))) (if (odbc-call-successful? status) - (let ((stmt-handle (really-make-statement-handle value))) + (let ((stmt-handle (really-make-statement-handle value conn-handle))) (add-finalizer! stmt-handle free-statement-handle) (values status stmt-handle)) (values status value))))