From 6568d2bd6e4e047dd95b00a7a6e7501a16491eb5 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 4 May 2015 21:44:52 +0200
Subject: search-paths: Add 'evaluate-search-paths', from (guix scripts
 package).

* guix/scripts/package.scm (with-null-error-port,
  evaluate-search-paths): Move to...
* guix/search-paths.scm: ... here.
* guix/utils.scm (string-tokenize*): Move to...
* guix/search-paths.scm: ... here.
* tests/utils.scm ("string-tokenize*"): Adjust accordingly.
---
 guix/utils.scm | 28 ----------------------------
 1 file changed, 28 deletions(-)

(limited to 'guix/utils.scm')

diff --git a/guix/utils.scm b/guix/utils.scm
index 3d38ba1223..a2ade2bf97 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -72,7 +72,6 @@
             version-major+minor
             guile-version>?
             package-name->name+version
-            string-tokenize*
             string-replace-substring
             arguments-from-environment-variable
             file-extension
@@ -606,33 +605,6 @@ introduce the version part."
         (substring file 0 dot)
         file)))
 
-(define (string-tokenize* string separator)
-  "Return the list of substrings of STRING separated by SEPARATOR.  This is
-like `string-tokenize', but SEPARATOR is a string."
-  (define (index string what)
-    (let loop ((string string)
-               (offset 0))
-      (cond ((string-null? string)
-             #f)
-            ((string-prefix? what string)
-             offset)
-            (else
-             (loop (string-drop string 1) (+ 1 offset))))))
-
-  (define len
-    (string-length separator))
-
-  (let loop ((string string)
-             (result  '()))
-    (cond ((index string separator)
-           =>
-           (lambda (offset)
-             (loop (string-drop string (+ offset len))
-                   (cons (substring string 0 offset)
-                         result))))
-          (else
-           (reverse (cons string result))))))
-
 (define* (string-replace-substring str substr replacement
                                    #:optional
                                    (start 0)
-- 
cgit v1.2.3