From 02cf38514d85182ee5b1f89968d5052b1e3b40ca Mon Sep 17 00:00:00 2001 From: Thomas Danckaert Date: Wed, 19 Apr 2017 18:14:38 +0200 Subject: SRFI-37: Account for zero-length arguments. * 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. --- module/srfi/srfi-37.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'module/srfi') diff --git a/module/srfi/srfi-37.scm b/module/srfi/srfi-37.scm index 3f654af2c..c34b0d083 100644 --- a/module/srfi/srfi-37.scm +++ b/module/srfi/srfi-37.scm @@ -217,7 +217,8 @@ program-arguments in ARGS, as decided by the OPTIONS' (if (null? args) (apply values seeds) (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))) ;"-" (mutate-seeds! operand-proc arg) (set! args (cdr args))) -- cgit v1.2.3