Changeset 27821 in project


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

Location:
release/4/getopt-long/trunk
Files:
2 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    ))
  • release/4/getopt-long/trunk/getopt-long.setup

    r25419 r27821  
    44  (make-pathname #f fn ##sys#load-dynamic-extension))   
    55
    6 (compile -O -d2 -S -s getopt-long.scm -j getopt-long)
    7 (compile -O -d2 -s getopt-long.import.scm)
     6(compile -O2 -d0 -S -s getopt-long.scm -j getopt-long)
     7(compile -O2 -d0 -s getopt-long.import.scm)
    88
    99(install-extension
     
    1616
    1717  ; Assoc list with properties for your extension:
    18   `((version 1.14)
     18  `((version 1.15)
    1919    ))
    2020
Note: See TracChangeset for help on using the changeset viewer.