From d0ed3341d7201d0332e9aeb0af80e0ec635aeb1e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 16 Nov 2018 21:49:02 +0100
Subject: database: Re-throw the message of 'sqlite-error' exceptions.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Fixes <https://bugs.gnu.org/33407>.
Reported by Björn Höfling <bjoern.hoefling@bjoernhoefling.de>.

* src/cuirass/database.scm (catch-sqlite-error): Add missing MESSAGE
argument to 'throw'.
---
 src/cuirass/database.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index 37bedf6..33705b5 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -136,7 +136,7 @@ specified."
        (lambda (key who code message . rest)
          (if (= code error)
              (begin handle ...)
-             (apply throw key who code rest)))))))
+             (apply throw key who code message rest)))))))
 
 (define %package-database
   ;; Define to the database file name of this package.
-- 
cgit v1.2.3