Move '%program-name' to (cuirass ui) module.

2 files changed, 15 insertions, 14 deletions

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index f535ac6..81fba6e 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -24,19 +24,8 @@
   #:export (;; Procedures.
             call-with-time-display
             ;; Parameters.
-            %program-name
             %package-cachedir))
 
-(define %program-name
-  ;; Similar in spirit to Gnulib 'progname' module.
-  (make-parameter ""
-    (λ (val)
-      (cond ((not (string? val))
-             (scm-error 'wrong-type-arg
-                        "%program-name" "Not a string: ~S" (list #f) #f))
-            ((string-rindex val #\/) => (λ (idx) (substring val (1+ idx))))
-            (else val)))))
-
 (define %package-cachedir
   ;; Define to location of cache directory of this package.
   (make-parameter (or (getenv "CUIRASS_CACHEDIR")
diff --git a/src/cuirass/ui.scm b/src/cuirass/ui.scm
index d351e4e..c63a3e5 100644
--- a/src/cuirass/ui.scm
+++ b/src/cuirass/ui.scm
@@ -18,10 +18,22 @@
 ;;; along with Cuirass.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-module (cuirass ui)
-  #:use-module (cuirass base)
   #:use-module (cuirass config)
-  #:export (show-version
-            show-package-information))
+  #:export (;; Procedures.
+            show-version
+            show-package-information
+            ;; Parameters.
+            %program-name))
+
+(define %program-name
+  ;; Similar in spirit to Gnulib 'progname' module.
+  (make-parameter ""
+    (λ (val)
+      (cond ((not (string? val))
+             (scm-error 'wrong-type-arg
+                        "%program-name" "Not a string: ~S" (list #f) #f))
+            ((string-rindex val #\/) => (λ (idx) (substring val (1+ idx))))
+            (else val)))))
 
 (define (show-version)
   "Display version information for COMMAND."