>From 7bd0091580f2fdfcc877107d4f02f66a0b72a32a Mon Sep 17 00:00:00 2001 From: Evan Hanson Date: Sun, 9 Sep 2018 17:15:23 +1200 Subject: [PATCH 2/2] 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 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))))) -- 2.11.0