~ chicken-core (chicken-5) efa387a033bc6696030fba4a0596433720326cd4
commit efa387a033bc6696030fba4a0596433720326cd4
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Nov 11 13:06:18 2016 +0100
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Fri Nov 11 13:06:18 2016 +0100
version: make minor/patch optional
diff --git a/egg-information.scm b/egg-information.scm
index 5e9e2750..0189fc80 100644
--- a/egg-information.scm
+++ b/egg-information.scm
@@ -8,7 +8,10 @@
(pair? v)
(null? (cdr v))
(let ((str (->string (car v))))
- (irregex-match '(seq (+ numeric) #\. (+ numeric) #\. (+ numeric)) str))))
+ (irregex-match '(seq (+ numeric)
+ (? #\. (+ numeric)
+ (? #\. (+ numeric))))
+ str))))
(define (optname? x)
(and (list? x) (pair? x)
Trap