diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-20 00:14:45 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-25 02:12:39 +0200 |
| commit | f9938a3caa2c2158a18f2e25eb2d5bac3a4acfa0 (patch) | |
| tree | 3cfc253866a03c754091cb3e640bf8e84446b2ee /src | |
| parent | fb986fa8fe303eaa165ad925dee0fef36650fc0d (diff) | |
| download | cuirass-f9938a3caa2c2158a18f2e25eb2d5bac3a4acfa0.tar cuirass-f9938a3caa2c2158a18f2e25eb2d5bac3a4acfa0.tar.gz | |
database: Don't catch exceptions from (sqlite3) module.
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 72c5fd8..361584e 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -71,7 +71,7 @@ database object." (delete-file db-name)) (let ((db (sqlite-open db-name (logior SQLITE_OPEN_CREATE SQLITE_OPEN_READWRITE)))) - (for-each (λ (sql) (false-if-exception (sqlite-exec db sql))) + (for-each (λ (sql) (sqlite-exec db sql)) (read-sql-file (%package-schema-file))) db))) |