~ chicken-core (chicken-5) 6a8b5bf413e39734ed4ca39829e434e047b9fc58

commit 6a8b5bf413e39734ed4ca39829e434e047b9fc58
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Sun Nov 16 13:32:05 2014 +0100
Commit:     Mario Domenech Goulart <mario.goulart@gmail.com>
CommitDate: Tue Nov 18 06:23:52 2014 -0200

    Fix broken missing file detection in distribution tarball generator
    
    Signed-off-by: Mario Domenech Goulart <mario.goulart@gmail.com>

diff --git a/scripts/makedist.scm b/scripts/makedist.scm
index 6108a8ea..9db3cb79 100644
--- a/scripts/makedist.scm
+++ b/scripts/makedist.scm
@@ -55,13 +55,14 @@
 	   (print "creating " d)
 	   (create-directory d 'with-parents))))
      (delete-duplicates (filter-map prefix files) string=?))
-    (let ((missing '()))
-      (for-each
-       (lambda (f)
-	 (if (file-exists? f)
-	     (run (cp -p ,(qs f) ,(qs (make-pathname distname f))))
-	     (set! f (cons f missing))))
-       files)
+    (let ((missing
+	   (foldl (lambda (missing f)
+		    (cond
+		     ((file-exists? f)
+		      (run (cp -p ,(qs f) ,(qs (make-pathname distname f))))
+		      missing)
+		     (else (cons f missing))))
+		  '() files)))
       (unless (null? missing)
 	(warning "files missing" missing) ) )
     (run (tar cfz ,(conc distname ".tar.gz") ,distname))