From 9741aca9a586231423712b99d52346bf3dcdd4e3 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 1 Dec 2014 15:46:10 +0100 Subject: utils: Add 'symbolic-link?'. * guix/build/utils.scm (symbolic-link?): New procedure. --- guix/build/utils.scm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'guix') 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 @@ (define-module (guix build utils) directory-exists? executable-file? + symbolic-link? call-with-ascii-input-file elf-file? ar-file? @@ -93,6 +94,10 @@ (define (executable-file? file) (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 -- cgit v1.2.3