[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] getopt-long permits numbers for short options.
From: |
Marius Bakke |
Subject: |
[PATCH] getopt-long permits numbers for short options. |
Date: |
Tue, 5 Sep 2023 14:04:54 +0800 |
* 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
- [PATCH] getopt-long permits numbers for short options.,
Marius Bakke <=