diff options
Diffstat (limited to 'gn')
| -rw-r--r-- | gn/db/mysql.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gn/db/mysql.scm b/gn/db/mysql.scm index 760e578..66f28db 100644 --- a/gn/db/mysql.scm +++ b/gn/db/mysql.scm @@ -31,8 +31,10 @@ (begin (display "===> OPENING DB") (newline) - (dbi-open "mysql" "webqtlout:webqtlout:db_webqtl:tcp:127.0.0.1:3306") - )) + (let [(db (dbi-open "mysql" "webqtlout:webqtlout:db_webqtl:tcp:127.0.0.1:3306"))] + (ensure db) + db + ))) (define (call-with-db thunk) (thunk (db-open))) |