~ chicken-core (chicken-5) 1fae1f20a9d3f69f0ac536e7b11f164a056c0d72

commit 1fae1f20a9d3f69f0ac536e7b11f164a056c0d72
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Aug 14 16:11:34 2025 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Aug 14 16:11:34 2025 +0200

    reduce .egg version field validation to nonempty string test

diff --git a/chicken-install.scm b/chicken-install.scm
index 866d0bec..4d5f9b25 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -137,14 +137,7 @@
 ;;; validate egg-information tree
 
 (define (egg-version? v)
-  (and (list? v)
-       (pair? v)
-       (null? (cdr v))
-       (let ((str (->string (car v))))
-         (irregex-match '(seq (+ numeric)
-                              (? #\. (+ numeric)
-                                 (? #\. (+ numeric))))
-                        str))))
+  (and (string? v) (positive? (string-length v))))
 
 (define (optname? x)
   (and (list? x)