diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-11-16 21:49:02 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-11-16 21:49:02 +0100 |
| commit | d0ed3341d7201d0332e9aeb0af80e0ec635aeb1e (patch) | |
| tree | ee8d38f3ac0f9f40c87c94c3c258c0ff44cb2fdf /src | |
| parent | 09afb02528e378a75d275bea68a756adabca614a (diff) | |
| download | cuirass-d0ed3341d7201d0332e9aeb0af80e0ec635aeb1e.tar cuirass-d0ed3341d7201d0332e9aeb0af80e0ec635aeb1e.tar.gz | |
database: Re-throw the message of 'sqlite-error' exceptions.
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'.
Diffstat (limited to 'src')
| -rw-r--r-- | src/cuirass/database.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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. |