Browse files

Fix consume-results-and-bind-variables so it always returns a list fo…

…r bound-variables
  • Loading branch information...
1 parent 9689c5a commit eda8041b267ec43136fa65a588151437ac9764d7 Peter Bex committed Jun 28, 2011
Showing with 2 additions and 2 deletions.
  1. +1 −1 freetds.scm
  2. +1 −1 tests/run.scm
2 freetds.scm
@@ -1039,7 +1039,7 @@ with the FreeTDS egg. If not, see <>.
;; Currently this assumes a command can only return one result
;; (actually it returns only the last; anything else is consumed but discarded)
(define (consume-results-and-bind-variables connection command*)
- (let loop ((bound-variables #f)
+ (let loop ((bound-variables '())
(resultset #f))
(let*-values (((connection*) (freetds-connection-ptr connection))
((result-status result-type) (results! connection* command*)))
2 tests/run.scm
@@ -22,7 +22,7 @@
(not (connection-open? conn)))))
;; From now on, just keep using the same connection
-(define connection (make-connection server username password))
+(define connection (make-connection server username password database))
(test-group "low-level query & results interface"
(let ((res (send-query connection

0 comments on commit eda8041

Please sign in to comment.