David Thompson (2015-08-01 22:17 +0300) wrote: > diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm > index c58d23c..f0d6f70 100644 > --- a/gnu/build/file-systems.scm > +++ b/gnu/build/file-systems.scm > @@ -305,6 +305,10 @@ the following: > fsck code device) > (start-repl))))) > > +(define (regular-file? file-name) > + "Return #t if FILE-NAME is a regular file." > + (eq? (stat:type (stat file-name)) 'regular))
There are similar procedures in (guix build utils): 'directory-exists?', 'executable-file?' and 'symbolic-link?'. So I think it is better to put 'regular-file?' there. WDYT? -- Alex
