~ 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