ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-16 19:57:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: Add 'symbolic-link?'.

Browse source 
* guix/build/utils.scm (symbolic-link?): New procedure.
This commit is contained in:
Ludovic Courtès 2014-12-01 15:46:10 +01:00
parent d68fe74162
commit 9741aca9a5
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/build/utils.scm
View file

@ -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