diff options
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/build/utils.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm index 11ac6a8a7b..9965106c48 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -924,13 +924,21 @@ a thunk." (min len buffer-size) buffer-size)))))) +(define AT_SYMLINK_NOFOLLOW + ;; Guile 2.0 did not define this constant, hence this hack. + (let ((variable (module-variable the-root-module 'AT_SYMLINK_NOFOLLOW))) + (if variable + (variable-ref variable) + 256))) ;for GNU/Linux + (define (set-file-time file stat) "Set the atime/mtime of FILE to that specified by STAT." (utime file (stat:atime stat) (stat:mtime stat) (stat:atimensec stat) - (stat:mtimensec stat))) + (stat:mtimensec stat) + AT_SYMLINK_NOFOLLOW)) (define (get-char* p) ;; We call it `get-char', but that's really a binary version |