scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+ fixed confusion of environment/connection handles

This commit is contained in:
eknauel 2003-04-24 14:51:20 +00:00
parent 8a40bfdc90
commit 5f9eb17fed
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/odbc/odbc.scm
View File

@ -566,7 +566,7 @@
(status (car status.value)) (status (car status.value))
(value (cadr status.value))) (value (cadr status.value)))
(if (odbc-call-successful? status) (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) (add-finalizer! conn-handle free-connection-handle)
(values status conn-handle)) (values status conn-handle))
(values status value)))) (values status value))))
@ -587,7 +587,7 @@
(status (car status.value)) (status (car status.value))
(value (cadr status.value))) (value (cadr status.value)))
(if (odbc-call-successful? status) (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) (add-finalizer! stmt-handle free-statement-handle)
(values status stmt-handle)) (values status stmt-handle))
(values status value)))) (values status value))))