#:name "initdb"
#:help "Init database."
#:procedure (lambda ()
- (format #t "Initialized the database"))))
+ (format #t "Initialize the database.~%"))))
(define dropdb
(command
#:name "dropdb"
#:help "Drop database."
#:procedure (lambda ()
- (format #t "Dropped the database"))))
+ (format #t "Drop the database.~%"))))
(define cli
(group