diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-09-26 15:14:53 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-09-26 15:14:53 +0200 |
| commit | e1556533d3e57950417b2e35a68e95c65fee5042 (patch) | |
| tree | 41d67b065c7828e164af83254fb447849d9e880d /gnu/packages/engineering.scm | |
| parent | 5d8d8f3b0a07edb3bd435830b076749f906537d8 (diff) | |
| parent | 92f1cefb74f6092c0c70f93140824ab806086272 (diff) | |
| download | guix-patches-e1556533d3e57950417b2e35a68e95c65fee5042.tar guix-patches-e1556533d3e57950417b2e35a68e95c65fee5042.tar.gz | |
Merge branch 'core-updates'
Diffstat (limited to 'gnu/packages/engineering.scm')
| -rw-r--r-- | gnu/packages/engineering.scm | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm index 1e245a8b5e..54e43ef0f8 100644 --- a/gnu/packages/engineering.scm +++ b/gnu/packages/engineering.scm @@ -302,11 +302,9 @@ optimizer; and it can produce photorealistic and design review images.") (doc (string-append data "/doc/" ,name "-" ,version)) (examples (string-append doc "/examples"))) (with-directory-excursion "bin" - (mkdir-p bin) - (for-each - (lambda (f) - (copy-file f (string-append bin "/" (basename f)))) - (find-files "." ".*"))) + (for-each (lambda (f) + (install-file f bin)) + (find-files "." ".*"))) (copy-recursively "doc" doc) (copy-recursively "examples" examples) #t)))))) @@ -352,11 +350,9 @@ multipole-accelerated algorithm.") (doc (string-append data "/doc/" ,name "-" ,version)) (examples (string-append doc "/examples"))) (with-directory-excursion "bin" - (mkdir-p bin) - (for-each - (lambda (f) - (copy-file f (string-append bin "/" (basename f)))) - (find-files "." ".*"))) + (for-each (lambda (f) + (install-file f bin)) + (find-files "." ".*"))) (copy-recursively "doc" doc) (copy-recursively "examples" examples) #t)))))) |