diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-12-01 15:46:10 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-12-01 15:46:38 +0100 |
| commit | 9741aca9a586231423712b99d52346bf3dcdd4e3 (patch) | |
| tree | 2ece9e1d903eecfef6f50f24720d586ba5903579 | |
| parent | d68fe741623d11d16c514cf8bddbb48a1e5258ae (diff) | |
| download | gnu-guix-9741aca9a586231423712b99d52346bf3dcdd4e3.tar gnu-guix-9741aca9a586231423712b99d52346bf3dcdd4e3.tar.gz | |
utils: Add 'symbolic-link?'.
* guix/build/utils.scm (symbolic-link?): New procedure.
| -rw-r--r-- | guix/build/utils.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm index 737976e8e4..de1cfcea42 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -35,6 +35,7 @@ directory-exists? executable-file? + symbolic-link? call-with-ascii-input-file elf-file? ar-file? @@ -93,6 +94,10 @@ (and s (not (zero? (logand (stat:mode s) #o100)))))) +(define (symbolic-link? file) + "Return #t if FILE is a symbolic link (aka. \"symlink\".)" + (eq? (stat:type (lstat file)) 'symlink)) + (define (call-with-ascii-input-file file proc) "Open FILE as an ASCII or binary file, and pass the resulting port to PROC. FILE is closed when PROC's dynamic extent is left. Return the |