~ chicken-core (chicken-5) 130fec6c351ad186c3e13727de4e8e9568b59648

commit 130fec6c351ad186c3e13727de4e8e9568b59648
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jul 22 13:15:34 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jul 22 13:15:34 2011 +0200

    handle nonexistent version in download-file-header (thanks to Kon Lovett)

diff --git a/setup-download.scm b/setup-download.scm
index 45e69a41..402f853a 100644
--- a/setup-download.scm
+++ b/setup-download.scm
@@ -337,10 +337,10 @@
 	  (cond ((or (eof-object? ln)
 		     (irregex-match " *#!eof *" ln))
 		 (open-input-string ""))
-		((irregex-match " *#\\|[- ]*([^ ]+) *\\|#.*" ln) =>
+		((irregex-match " *#\\|[- ]*([^- ]*) *\\|#.*" ln) =>w
 		 (lambda (m)
 		   (let ((v (irregex-match-substring m 1)))
-		     (cond ((string=? "#f" v))
+		     (cond ((or (string=? "" v) (string=? "#f" v)))
 			   ((and version (not (string=? v version)))
 			    (warning "files-versions are not identical" ln version)
 			    (set! version #f))