>From 53d880a924b983eee8f63f72f9821a2050e72d59 Mon Sep 17 00:00:00 2001
From: Peter Bex <address@hidden>
Date: Sun, 16 Nov 2014 13:32:05 +0100
Subject: [PATCH 1/2] Fix broken missing file detection in distribution
 tarball generator

---
 scripts/makedist.scm |   15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/scripts/makedist.scm b/scripts/makedist.scm
index d3891a1..63dfcdf 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))
-- 
1.7.10.4