From 6caa70e84b29c05b3bddcf186d7d1b035b1210cf Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 31 Jan 2007 23:20:03 +0000 Subject: [PATCH] can now use make-file-or-directory-link instead of cp -a svn: r5521 --- collects/setup/unixstyle-install.ss | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/collects/setup/unixstyle-install.ss b/collects/setup/unixstyle-install.ss index dfdd3ff52d..08f5222880 100644 --- a/collects/setup/unixstyle-install.ss +++ b/collects/setup/unixstyle-install.ss @@ -138,9 +138,7 @@ dst (file-or-directory-modify-seconds src)))]) (cond [(skip-filter src) 'skip] [(link-exists? src) - ;; symlinks are impossible to do in Scheme now: can't make - ;; arbitrary ones - (run "cp" "-a" "--" src dst)] + (make-file-or-directory-link (resolve-path src) dst)] [(directory-exists? src) (make-directory dst) (time!) (parameterize ([current-directory src])