From 0fc5fa976195e6028cfa8449ffefc06d1ccb0f7d Mon Sep 17 00:00:00 2001
From: alice maz <alice@alicemaz.com>
Date: Mon, 15 Jul 2019 00:56:26 -0500
Subject: [PATCH] Keep file permissions in copy-file and move-file
---
file.scm | 3 +++
1 file changed, 3 insertions(+)
diff --git a/file.scm b/file.scm
index 34fa3b99..3469bd1a 100644
a
|
b
|
EOF |
175 | 175 | (import scheme |
176 | 176 | chicken.base |
177 | 177 | chicken.condition |
| 178 | chicken.file.posix |
178 | 179 | chicken.fixnum |
179 | 180 | chicken.foreign |
180 | 181 | chicken.io |
… |
… |
EOF |
344 | 345 | (l 0)) |
345 | 346 | (if (fx= 0 d) |
346 | 347 | (begin |
| 348 | (set-file-permissions! o (file-permissions i)) |
347 | 349 | (close-input-port i) |
348 | 350 | (close-output-port o) |
349 | 351 | l) |
… |
… |
EOF |
368 | 370 | (l 0)) |
369 | 371 | (if (fx= 0 d) |
370 | 372 | (begin |
| 373 | (set-file-permissions! o (file-permissions i)) |
371 | 374 | (close-input-port i) |
372 | 375 | (close-output-port o) |
373 | 376 | (delete-file oldfile) |