summaryrefslogtreecommitdiff
path: root/guix/build
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-12-01 15:46:10 +0100
committerLudovic Courtès <ludo@gnu.org>2014-12-01 15:46:38 +0100
commit9741aca9a586231423712b99d52346bf3dcdd4e3 (patch)
tree2ece9e1d903eecfef6f50f24720d586ba5903579 /guix/build
parentd68fe741623d11d16c514cf8bddbb48a1e5258ae (diff)
utils: Add 'symbolic-link?'.
* guix/build/utils.scm (symbolic-link?): New procedure.
Diffstat (limited to 'guix/build')
-rw-r--r--guix/build/utils.scm5
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