[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#30657] [PATCH 2/4] gexp: Add 'file-like?'.
From: |
Clément Lassieur |
Subject: |
[bug#30657] [PATCH 2/4] gexp: Add 'file-like?'. |
Date: |
Wed, 28 Feb 2018 23:28:19 +0100 |
* guix/gexp.scm (file-like?): New exported procedure.
---
guix/gexp.scm | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/guix/gexp.scm b/guix/gexp.scm
index f005c4d29..9a30579a6 100644
--- a/guix/gexp.scm
+++ b/guix/gexp.scm
@@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016, 2017 Ludovic Courtès <address@hidden>
+;;; Copyright © 2018 Clément Lassieur <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -70,6 +71,8 @@
file-append-base
file-append-suffix
+ file-like?
+
load-path-expression
gexp-modules
@@ -437,6 +440,14 @@ SUFFIX."
(base (expand base lowered output)))
(string-append base (string-concatenate suffix)))))))
+(define (file-like? object)
+ (or (local-file? object)
+ (plain-file? object)
+ (computed-file? object)
+ (program-file? object)
+ (scheme-file? object)
+ (file-append? object)))
+
;;;
;;; Inputs & outputs.
--
2.16.2