~ 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