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

diff --git a/examples/nested.scm b/examples/nested.scm
index 023e1ef..414e589 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 "Initialized the database"))))
 
 (define dropdb
   (command
-   '()
-   (lambda ()
-     (format #t "Dropped the database"))))
+   #:name "dropdb"
+   #:help "Drop database."
+   #:procedure (lambda ()
+                 (format #t "Dropped the database"))))
 
 (define cli
   (group
-   '()
-   "Database Tools"
-   initdb
-   dropdb))
+   #:help "Database Tools"
+   #:commands `(,initdb ,dropdb)))
 
 (cli (command-line))