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:
parent
09afb02528
commit
d0ed3341d7
|
@ -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.
|
||||
|
|
Loading…
Reference in New Issue