(use freetds)

(let
  ((conn (make-connection "myip"
                          "myusername"
                          "mypassword"
                          "mydb")))
    (send-query conn "SELECT 1"))

;=>
; Error: unbound variable: main
;
; Call history:
;
; freetds.scm:445: numbers#=
; freetds.scm:442: numbers#=
; freetds.scm:460: numbers#=
; freetds.scm:1058: loop
; freetds.scm:1041: ##sys#call-with-values
; freetds.scm:934: ##sys#make-locative
; freetds.scm:935: values
; freetds.scm:439: numbers#=
; freetds.scm:457: numbers#=
; freetds.scm:451: numbers#=
; freetds.scm:1085: check-server-errors!
; freetds.scm:209: ##sys#gc
; freetds.scm:494: g2318
; freetds.scm:1087: values
; freetds.scm:879: g2806
; freetds.scm:881: set-finalizer!     <--