From e34d773faf7309d4273fe204149845999d4ed8a7 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 24 Jan 2020 19:04:21 +0000 Subject: Adjust make-worker-thread-channel to take an initializer. While this is a generic method, and initializer function will give the flexibility required to create multiple worker threads for performing SQLite queries, each with it's own database connection (as a result of calling the initializer once for each thread). Without this change, they'd all have to use the same connection, which would not work. * src/cuirass/utils.scm (make-worker-thread-channel): Change procedure to take an initializer, rather than arguments directly. * src/cuirass/database.scm (with-database): Adjust to call make-worker-thread-channel with an initializer. * tests/database.scm (db-init): Change to use make-worker-thread-channel initializer. * tests/http.scm (db-init): Change to use make-worker-thread-channel initializer. --- tests/http.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'tests/http.scm') diff --git a/tests/http.scm b/tests/http.scm index 337a775..d20a3c3 100644 --- a/tests/http.scm +++ b/tests/http.scm @@ -108,7 +108,9 @@ (test-assert "db-init" (begin (%db (db-init database-name)) - (%db-channel (make-worker-thread-channel (%db))) + (%db-channel (make-worker-thread-channel + (lambda () + (list (%db))))) #t)) (test-assert "cuirass-run" -- cgit v1.2.3