branch: master commit d0ed3341d7201d0332e9aeb0af80e0ec635aeb1e Author: Ludovic Courtès <l...@gnu.org> 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 <bjoern.hoefl...@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.