Ignore:
Timestamp:
11/15/12 02:44:22 (8 years ago)
Author:
Ivan Raikov
Message:

getopt-long: some tweaks in processing of options with multiple sub-arguments

File:
1 edited

Legend:

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

    r25764 r27821  
    173173        (require-extension data-structures srfi-1 srfi-13 srfi-14 matchable )
    174174
    175 (define (fetch-value kv)
     175(define (fetch-value kv) 
    176176  (match kv ((k v) v) (else (cdr kv))))
    177177
     
    756756        (else
    757757         (let* ((spec (find (lambda (x) (eq? (option-spec-name x) name)) specifications))
    758                 (v (filter-map (lambda (x) (and (eq? (car x) name) (fetch-value x))) (cdr opts))))
    759            (if (option-spec-multiple? spec) v (and (pair? v) (car v)))))
     758                (v (filter-map (lambda (x) (and (eq? (car x) name) (cdr x))) (cdr opts))))
     759           (if (option-spec-multiple? spec) v (and (pair? v) (car v)))
     760           ))
    760761         ))
    761762    ))
Note: See TracChangeset for help on using the changeset viewer.