From 965c80d49c661cb1406079f30f625af7b2e43def Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 17 May 2014 02:19:23 -0700 Subject: [PATCH] Make sure that root-dir is absolute. --- dist/update-copyright.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dist/update-copyright.scm b/dist/update-copyright.scm index da8b64ae5..9ae2c59c5 100644 --- a/dist/update-copyright.scm +++ b/dist/update-copyright.scm @@ -29,7 +29,7 @@ USA. (declare (usual-integrations)) (define (translate-standard-dirs root-dir translation) - (let* ((root-dir (pathname-as-directory root-dir)) + (let* ((root-dir (merge-pathnames (pathname-as-directory root-dir))) (target (merge-pathnames "translated-files" root-dir)) (target-dir (pathname-as-directory target))) (make-directory target) -- 2.25.1