From 1976980d4a272fb7fc3694c734bfc6825edfc721 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 23 Jun 2022 03:23:44 +0200
Subject: Centralize (almost) all exports to :export in define-module.

---
 module/vulgar/color.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'module/vulgar/color.scm')

diff --git a/module/vulgar/color.scm b/module/vulgar/color.scm
index 368a823c..5f9fbe40 100644
--- a/module/vulgar/color.scm
+++ b/module/vulgar/color.scm
@@ -1,5 +1,5 @@
 (define-module (vulgar color)
-  :export (color-if))
+  :export (color-if color-escape))
 
 (define-public STR-YELLOW "\x1b[0;33m")
 (define-public STR-RESET "\x1b[m")
@@ -11,7 +11,7 @@
             (begin body ...)
             (if pred-value STR-RESET ""))))
 
-(define-public (color-escape n)
+(define (color-escape n)
   (cond ((not n) "")
         ((char=? #\# (string-ref n 0))
          (let* ((str (string-drop n 1))
-- 
cgit v1.2.3