From 7af921010521b1108144c85259dae4e435a78262 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 22 Nov 2025 18:32:40 +0100 Subject: Remove superfluous debugging printing. --- db/conn.rkt | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'db/conn.rkt') diff --git a/db/conn.rkt b/db/conn.rkt index 2208e54..42a75c0 100644 --- a/db/conn.rkt +++ b/db/conn.rkt @@ -11,15 +11,11 @@ (define current-conn (make-parameter #f)) (define (connect! #:path [path 'memory]) - (cond - [(connection? (current-conn)) (printf "Database connection already exists: ~e\n" (current-conn))] - [else - (current-conn (sqlite3-connect #:database path #:mode 'create)) - (printf "Connected to database: ~a\n" path)])) + (unless (connection? (current-conn)) + (current-conn (sqlite3-connect #:database path #:mode 'create)))) (define (disconnect!) (disconnect (current-conn)) - (printf "Closing database connection: ~e\n" (current-conn)) (current-conn #f)) (define-syntax-rule (with-db body ...) -- cgit v1.2.3