X-Git-Url: https://git.jsancho.org/?p=guile-click.git;a=blobdiff_plain;f=examples%2Fnested.scm;h=3b07ae6497c19fcefd4a44ce09ef784d015d3fbc;hp=023e1ef72f479f140b9ae8f6073551b8cda6e046;hb=487cd0d4c6c0ee9681cc132e5316ded7fc5dd0f7;hpb=ebf74b7c3fda8ead57a398bb6a1555067150d06f

diff --git a/examples/nested.scm b/examples/nested.scm
index 023e1ef..3b07ae6 100755
--- a/examples/nested.scm
+++ b/examples/nested.scm
@@ -25,21 +25,21 @@
 
 (define initdb
   (command
-   '()
-   (lambda ()
-     (format #t "Initialized the database"))))
+   #:name "initdb"
+   #:help "Init database."
+   #:procedure (lambda ()
+                 (format #t "Initialize the database.~%"))))
 
 (define dropdb
   (command
-   '()
-   (lambda ()
-     (format #t "Dropped the database"))))
+   #:name "dropdb"
+   #:help "Drop database."
+   #:procedure (lambda ()
+                 (format #t "Drop the database.~%"))))
 
 (define cli
   (group
-   '()
-   "Database Tools"
-   initdb
-   dropdb))
+   #:help "Database Tools"
+   #:commands `(,initdb ,dropdb)))
 
 (cli (command-line))