~ chicken-core (chicken-5) 10a1ed4ff8611ebb3d74ae433155af6feafdd1a1


commit 10a1ed4ff8611ebb3d74ae433155af6feafdd1a1
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Jul 16 12:22:07 2023 +0200
Commit:     Mario Domenech Goulart <mario@parenteses.org>
CommitDate: Sun Jul 16 13:33:13 2023 +0200

    accept dashes in file-version information transmitted via http in chicken-install
    
    Signed-off-by: Mario Domenech Goulart <mario@parenteses.org>

diff --git a/egg-download.scm b/egg-download.scm
index b568b3c3..388fa35f 100644
--- a/egg-download.scm
+++ b/egg-download.scm
@@ -149,7 +149,7 @@
         (cond ((or (eof-object? ln)
    	           (irregex-match " *#!eof *" ln))
 	        (open-input-string ""))
-	       ((irregex-match " *#\\|[- ]*([^- ]*) *\\|#.*" ln) =>
+	       ((irregex-match " *#\\|-+ +([^| ]*) *\\|#.*" ln) =>
 	         (lambda (m)
 		   (let ((v (irregex-match-substring m 1)))
 		     (cond ((or (string=? "" v) (string=? "#f" v)))
Trap