Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

don't install a file onto itself

Browse source
This commit is contained in:
Alex Shinn 2015-05-09 16:42:53 +09:00
parent 99b4a9aa83
commit f92586d694
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/snow/commands.scm
View file

@ -1573,9 +1573,10 @@
(lp dir)))))))) (lp dir))))))))
(define (install-file cfg source dest) (define (install-file cfg source dest)
(if (not (equal? source dest))
(if (install-with-sudo? cfg dest) (if (install-with-sudo? cfg dest)
(system "sudo" "cp" source dest) (system "sudo" "cp" source dest)
(system "cp" source dest))) (system "cp" source dest))))
(define (install-sexp-file cfg obj dest) (define (install-sexp-file cfg obj dest)
(if (install-with-sudo? cfg dest) (if (install-with-sudo? cfg dest)