~ 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