From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 17 May 2014 09:19:23 +0000 (-0700)
Subject: Make sure that root-dir is absolute.
X-Git-Tag: release-9.2.0~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=965c80d49c661cb1406079f30f625af7b2e43def;p=mit-scheme.git

Make sure that root-dir is absolute.
---

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)