summaryrefslogtreecommitdiff
path: root/guix/utils.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix/utils.scm')
-rw-r--r--guix/utils.scm18
1 files changed, 0 insertions, 18 deletions
diff --git a/guix/utils.scm b/guix/utils.scm
index 6c01edde21..725f4346c3 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -85,7 +85,6 @@
fold2
fold-tree
fold-tree-leaves
- split
cache-directory
readlink*
edit-expression
@@ -788,23 +787,6 @@ are connected to NODE in the tree, or '() or #f if NODE is a leaf node."
(else result)))
init children roots))
-(define (split lst e)
- "Return two values, a list containing the elements of the list LST that
-appear before the first occurence of the object E and a list containing the
-elements after E."
- (define (same? x)
- (equal? e x))
-
- (let loop ((rest lst)
- (acc '()))
- (match rest
- (()
- (values lst '()))
- (((? same?) . tail)
- (values (reverse acc) tail))
- ((head . tail)
- (loop tail (cons head acc))))))
-
(define (cache-directory)
"Return the cache directory for Guix, by default ~/.cache/guix."
(or (getenv "XDG_CONFIG_HOME")