~ chicken-core (chicken-5) aaf6a228691bf3ddd22351adcdaf6556c379ab54

commit aaf6a228691bf3ddd22351adcdaf6556c379ab54
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sun Sep 9 17:15:23 2018 +1200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sun Sep 9 13:17:15 2018 +0200

    Fix double quotation in random-files mkdir commands
    
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/egg-compile.scm b/egg-compile.scm
index 24735ddb..948b7225 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -773,11 +773,11 @@
                 (fdir (pathname-directory ds)))
            (when fdir
              (print mkdir " " ddir
-                    (qs* (make-pathname dfile fdir) platform #t)))
+                    (qs* (make-pathname dest fdir) platform #t)))
            (print dcmd " " (qs* d platform #t)
                   " " ddir
                   (if fdir
-                      (qs* (make-pathname dfile fdir) platform #t)
+                      (qs* (make-pathname dest fdir) platform #t)
                       dfile))
            (print-end-command platform)))
        ds)
@@ -788,11 +788,11 @@
                    (fdir (pathname-directory fs)))
               (when fdir
                 (print mkdir " " ddir
-                       (qs* (make-pathname dfile fdir) platform #t)))
+                       (qs* (make-pathname dest fdir) platform #t)))
               (print fcmd " " (qs* f platform)
                      " " ddir
                      (if fdir
-                         (qs* (make-pathname dfile fdir) platform #t)
+                         (qs* (make-pathname dest fdir) platform #t)
                          dfile)))
             (print-end-command platform))
           fs)))))