Changeset 17342 in project


Ignore:
Timestamp:
02/21/10 07:47:45 (10 years ago)
Author:
Ivan Raikov
Message:

bug fix in getopt-long

Location:
release/4/getopt-long
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/getopt-long/getopt-long.scm

    r17039 r17342  
    472472                                        (value-policy-optional?
    473473                                         (option-spec-value spec)))
    474                                    (list next (cons (option-spec-name spec) #t)))
     474                                   (let ((dflt (value-policy-default (option-spec-value spec))))
     475                                     (list next (cons (option-spec-name spec) (or dflt #t)))))
    475476                                 
    476477                                  ((and (not v) (option-spec-value spec))
  • release/4/getopt-long/getopt-long.setup

    r17039 r17342  
    1616
    1717  ; Assoc list with properties for your extension:
    18   `((version 1.3)
     18  `((version 1.4)
    1919    (documentation "getopt-long.html")
    2020    ))
Note: See TracChangeset for help on using the changeset viewer.