01/04: search-paths: Export 'string-tokenize*'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit d838e7029854d8517c0c5b631f6042a925c86a81
Author: Ludovic Courtès <address@hidden>
Date:   Wed May 6 11:10:24 2015 +0200

    search-paths: Export 'string-tokenize*'.
    
    * guix/search-paths.scm (string-tokenize*): Export.
    * tests/utils.scm ("string-tokenize*"): Adjust accordingly.
---
 guix/search-paths.scm |    1 +
 tests/utils.scm       |   10 +++++-----
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/guix/search-paths.scm b/guix/search-paths.scm
index ee7e9a1..7fd15d4 100644
--- a/guix/search-paths.scm
+++ b/guix/search-paths.scm
@@ -35,6 +35,7 @@
 
             search-path-specification->sexp
             sexp->search-path-specification
+            string-tokenize*
             evaluate-search-paths
             environment-variable-definition
             search-path-definition))
diff --git a/tests/utils.scm b/tests/utils.scm
index e03a07b..115868c 100644
--- a/tests/utils.scm
+++ b/tests/utils.scm
@@ -21,6 +21,7 @@
   #:use-module ((guix config) #:select (%gzip))
   #:use-module (guix utils)
   #:use-module ((guix store) #:select (%store-prefix store-path-package-name))
+  #:use-module ((guix search-paths) #:select (string-tokenize*))
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-11)
   #:use-module (srfi srfi-64)
@@ -82,11 +83,10 @@
     ("foo" "bar" "baz")
     ("foo" "bar" "")
     ("foo" "bar" "baz"))
-  (let ((string-tokenize* (@@ (guix search-paths) string-tokenize*)))
-    (list (string-tokenize* "foo" ":")
-          (string-tokenize* "foo;bar;baz" ";")
-          (string-tokenize* "foo!bar!" "!")
-          (string-tokenize* "foo+-+bar+-+baz" "+-+"))))
+  (list (string-tokenize* "foo" ":")
+        (string-tokenize* "foo;bar;baz" ";")
+        (string-tokenize* "foo!bar!" "!")
+        (string-tokenize* "foo+-+bar+-+baz" "+-+")))
 
 (test-equal "string-replace-substring"
   '("foo BAR! baz"