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'.
This commit is contained in:
Ludovic Courtès 2018-11-16 21:49:02 +01:00
parent 09afb02528
commit d0ed3341d7
1 changed files with 1 additions and 1 deletions

View File

@ -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.