Skip to content
Snippets Groups Projects
Unverified Commit f9938a3c authored by Mathieu Lirzin's avatar Mathieu Lirzin
Browse files

database: Don't catch exceptions from (sqlite3) module.

parent fb986fa8
No related branches found
No related tags found
No related merge requests found
......@@ -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)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment