~ chicken-core (chicken-5) 390cbc5c2e9ce62377af5527cf41475529c504b6
commit 390cbc5c2e9ce62377af5527cf41475529c504b6
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: Sun Nov 13 11:41:49 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