* module/ice-9/getopt-long.scm (short-opt-rx): Add 0-9. --- module/ice-9/getopt-long.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/module/ice-9/getopt-long.scm b/module/ice-9/getopt-long.scm index 18b235390..0077183da 100644 --- a/module/ice-9/getopt-long.scm +++ b/module/ice-9/getopt-long.scm @@ -221,7 +221,7 @@ ((string=? "--" (car no)) (cons (reverse yes) (cdr no))) (else (loop (cons (car no) yes) (cdr no)))))) -(define short-opt-rx (make-regexp "^-([a-zA-Z]+)(.*)")) +(define short-opt-rx (make-regexp "^-([a-zA-Z0-9]+)(.*)")) (define long-opt-no-value-rx (make-regexp "^--([^=]+)$")) (define long-opt-with-value-rx (make-regexp "^--([^=]+)=(.*)")) -- 2.41.0