diff options
-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))) |