tools.directory-to-file: use canonicalize-path

[factor.git] / extra / tools / directory-to-file / directory-to-file.factor

diff --git a/extra/tools/directory-to-file/directory-to-file.factor b/extra/tools/directory-to-file/directory-to-file.factor
index 557e14176faf612683815278a8a3756e903e33ba..99668760bb067acdb50a430c3eec83d483b5c6ce 100644 (file)
--- a/extra/tools/directory-to-file/directory-to-file.factor
+++ b/extra/tools/directory-to-file/directory-to-file.factor
@@ -39,7 +39,7 @@ IN: tools.directory-to-file
     "\n\n;DIRECTORY>" surround ;
 
 : directory-to-file ( path -- )
-    [ directory-to-string ] keep ".modern" append
+    [ directory-to-string ] keep canonicalize-path ".modern" append
     utf8 set-file-contents ;
 
 : directory-to-file-main ( -- )