X-Git-Url: https://git.jsancho.org/?p=guile-click.git;a=blobdiff_plain;f=click.scm;h=afeb2f914fa1145ad0573108a18f37f9ae84b0f8;hp=c3769a448956d0ad78a2a52ba6b195e573da758a;hb=a2c12dede99c0d296194699e025a2e541c8a98a0;hpb=7bb66a7166059976c81aef6e76f205c14b45cc45

diff --git a/click.scm b/click.scm
index c3769a4..afeb2f9 100644
--- a/click.scm
+++ b/click.scm
@@ -28,8 +28,10 @@
   (cond ((null? option-spec)
          '())
         (else
-         (let ((option (caar option-spec)))
-           (cons (cons option (option-ref options option #f))
+         (let* ((option (car option-spec))
+                (option-name (car option))
+                (default (option-default-value option)))
+           (cons (cons option-name (option-ref options option-name default))
                  (get-options-value options (cdr option-spec)))))))
 
 (define (command option-spec procedure)