mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

SRFI-37: Account for zero-length arguments.

Browse source 
* module/srfi/srfi-37.scm (args-fold): When checking if an argument is
an option (starts with #\-), first check if the length is non-zero.
This commit is contained in:
Thomas Danckaert 2017-04-19 18:14:38 +02:00 • committed by Andy Wingo
parent 40df57a8a2
commit 02cf38514d
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/srfi/srfi-37.scm
View file

@ -217,7 +217,8 @@ program-arguments in ARGS, as decided by the OPTIONS'
(if (null? args) (if (null? args)
(apply values seeds) (apply values seeds)
(let ((arg (car args))) (let ((arg (car args)))
(cond ((or (not (char=? #\- (string-ref arg 0))) (cond ((or (string-null? arg)
(not (char=? #\- (string-ref arg 0)))
(= 1 (string-length arg))) ;"-" (= 1 (string-length arg))) ;"-"
(mutate-seeds! operand-proc arg) (mutate-seeds! operand-proc arg)
(set! args (cdr args))) (set! args (cdr args)))