Nested commands

[guile-click.git] / examples / nested.scm

diff --git a/examples/nested.scm b/examples/nested.scm
index 414e5896b931f0dd9db958f0c30e21b46b7263ca..3b07ae6497c19fcefd4a44ce09ef784d015d3fbc 100755 (executable)
--- a/examples/nested.scm
+++ b/examples/nested.scm
@@ -28,14 +28,14 @@
    #: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