[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Ludovic Courtès |
Date: |
Fri, 16 Nov 2018 15:50:43 -0500 (EST) |
branch: master
commit d0ed3341d7201d0332e9aeb0af80e0ec635aeb1e
Author: Ludovic Courtès <address@hidden>
Date: Fri Nov 16 21:49:02 2018 +0100
database: Re-throw the message of 'sqlite-error' exceptions.
Fixes <https://bugs.gnu.org/33407>.
Reported by Björn Höfling <address@hidden>.
* 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.