Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

use string-append for building ansi escape codes

Browse source
This commit is contained in:
krzygorz 2019-11-07 18:34:41 +01:00
parent abfa6a724e
commit 05521e5e1d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/show/color.scm
View file

@ -18,7 +18,7 @@
(else "0"))) (else "0")))
(define (ansi-escape color) (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) (define (colored new-color . args)
(fn (color) (fn (color)