~ 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