~ chicken-core (chicken-5) c86c6571ad0d51aa0ec86ded641119e7a8616026
commit c86c6571ad0d51aa0ec86ded641119e7a8616026
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jul 22 13:16:02 2011 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jul 22 13:16:02 2011 +0200
typo fix
diff --git a/setup-download.scm b/setup-download.scm
index 402f853a..13147590 100644
--- a/setup-download.scm
+++ b/setup-download.scm
@@ -337,7 +337,7 @@
(cond ((or (eof-object? ln)
(irregex-match " *#!eof *" ln))
(open-input-string ""))
- ((irregex-match " *#\\|[- ]*([^- ]*) *\\|#.*" ln) =>w
+ ((irregex-match " *#\\|[- ]*([^- ]*) *\\|#.*" ln) =>
(lambda (m)
(let ((v (irregex-match-substring m 1)))
(cond ((or (string=? "" v) (string=? "#f" v)))
Trap