X-Git-Url: https://git.jsancho.org/?p=guile-click.git;a=blobdiff_plain;f=click%2Futil.scm;fp=click%2Futil.scm;h=8a4f771676e14e985772e1d08c8af37cc3c95e62;hp=e83e15319a915d16cb43e2ab4cfc14efe207126b;hb=27b4e1f5bfac39323bdff089aac094b8e98b0258;hpb=432c741eb5dac653c1a65fae2b8f15c4b444897f

diff --git a/click/util.scm b/click/util.scm
index e83e153..8a4f771 100644
--- a/click/util.scm
+++ b/click/util.scm
@@ -22,9 +22,6 @@
   #:use-module (ice-9 readline)
   #:use-module (click constant)
   #:export (getopt-long-option-spec
-            get-option-default-value
-            get-values
-            option-default-value
             option-property
             program-name
             %program-name))
@@ -48,26 +45,3 @@
     (if property
         (cadr property)
         default)))
-
-(define (get-values option-spec values)
-  "Return an associated list with values for all the options in option-spec"
-  (cond ((null? option-spec)
-         '())
-        (else
-         (let* ((option (car option-spec))
-                (option-name (car option))
-                (value (or (option-ref values option-name #f)
-                           (get-option-default-value option))))
-           (cons (cons option-name value)
-                 (get-values (cdr option-spec) values))))))
-
-
-(define* (get-option-default-value option #:optional (no-prompt #f))
-  "Get value for option, asking user if prompt property is set"
-  (let ((default (option-property option 'default)))
-    (if (not default)
-        (let ((prompt (option-property option 'prompt)))
-          (if prompt
-              (readline (format #f "~a: " prompt))
-              default))
-        default)))