From 05521e5e1d6bb0a192826a9b2b5bbdf73a762a4e Mon Sep 17 00:00:00 2001
From: krzygorz <krzygorz@gmail.com>
Date: Thu, 7 Nov 2019 18:34:41 +0100
Subject: [PATCH] use string-append for building ansi escape codes
---
lib/chibi/show/color.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/chibi/show/color.scm b/lib/chibi/show/color.scm
index b21222d0..7a324e12 100644
--- a/lib/chibi/show/color.scm
+++ b/lib/chibi/show/color.scm
@@ -18,7 +18,7 @@
(else "0")))
(define (ansi-escape color)
- (each (integer->char 27) "[" (color->ansi color) "m"))
+ (string-append (string (integer->char 27)) "[" (color->ansi color) "m"))
(define (colored new-color . args)
(fn (color)