Prompt for values

[guile-click.git] / click.scm

diff --git a/click.scm b/click.scm
index c3769a448956d0ad78a2a52ba6b195e573da758a..afeb2f914fa1145ad0573108a18f37f9ae84b0f8 100644 (file)
--- 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)