Fixing lambda.
This commit is contained in:
@@ -14,7 +14,7 @@
|
|||||||
(when (not (file-exists? *db*))
|
(when (not (file-exists? *db*))
|
||||||
(call-with-output-file *db*
|
(call-with-output-file *db*
|
||||||
(lambda (output-port)
|
(lambda (output-port)
|
||||||
;; Empty body, no content to write to the file
|
""
|
||||||
)))
|
)))
|
||||||
(with-db (db)
|
(with-db (db)
|
||||||
(exec (sql db "create table if not exists users(id INTEGER PRIMARY KEY, username TEXT, email TEXT, password TEXT, salt TEXT);"))
|
(exec (sql db "create table if not exists users(id INTEGER PRIMARY KEY, username TEXT, email TEXT, password TEXT, salt TEXT);"))
|
||||||
|
|||||||
Reference in New Issue
Block a user