>From 0c0850a8f839f2041403635992291a749fa888d1 Mon Sep 17 00:00:00 2001 From: Evan Hanson Date: Sun, 9 Sep 2018 17:15:23 +1200 Subject: [PATCH 3/3] Fix double quotation in random-files mkdir commands --- egg-compile.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/egg-compile.scm b/egg-compile.scm index f3b417cf..856a4113 100644 --- a/egg-compile.scm +++ b/egg-compile.scm @@ -767,11 +767,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) @@ -782,11 +782,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))))) -- 2.11.0