[Guile-commits] 01/01: SRFI-37: Account for zero-length arguments.

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 02cf38514d85182ee5b1f89968d5052b1e3b40ca
Author: Thomas Danckaert <address@hidden>
Date:   Wed Apr 19 18:14:38 2017 +0200

    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(-)

diff --git a/module/srfi/srfi-37.scm b/module/srfi/srfi-37.scm
index 3f654af..c34b0d0 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)))