scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

New upstream release.

This commit is contained in:
Anthony Carrico 2004-04-13 18:12:41 +00:00
parent 92cdee85d7
commit ef661db8ec
2 changed files with 11 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
s48/args-fold/NEWS
View File

@ -1,2 +1,6 @@
version 0.4 version 0.4
* New package system. * New package system.
* New upstream release.
* UPSTREAM: As suggested by Sven Hartrumpf, a long option with a
missing required option-argument (no "=") will not use the next
command line argument as the option-argument.

23
s48/args-fold/args-fold.scm
View File

@ -185,22 +185,13 @@
#f #f
#f #f
unrecognized-option-proc)))) unrecognized-option-proc))))
(if (and (option-required-arg? option) (let-values
(pair? args)) ((seeds (apply (option-processor option)
(let-values option
((seeds (apply (option-processor option) name
option #f
name seeds)))
(car args) (scan-args args seeds))))
seeds)))
(scan-args (cdr args) seeds))
(let-values
((seeds (apply (option-processor option)
option
name
#f
seeds)))
(scan-args args seeds)))))
(;; (rx bos "-" (submatch (+ any))) (;; (rx bos "-" (submatch (+ any)))
(and (> (string-length arg) 1) (and (> (string-length arg) 1)
(char=? #\- (string-ref arg 0))) (char=? #\- (string-ref arg 0)))