brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Compatibility fixes for tests.

Browse source
This commit is contained in:
Dominik Pantůček 2023-07-02 07:55:55 +02:00
parent 64b0b7fa5c
commit 3b784243a1
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/sgr-block.scm
View file

@ -92,7 +92,7 @@
(map (lambda (sl) (map (lambda (sl)
(sgr-list->string sl (sgr-list->string sl
#:reset-state reset-state #:reset-state reset-state
#:strip-ansi strip-ansi?)) #:strip-ansi? strip-ansi?))
sb)) sb))
;; Returns the width of the longest SGR line in the block ;; Returns the width of the longest SGR line in the block

2
src/util-string.scm
View file

@ -62,7 +62,7 @@
(if (null? lst) (if (null? lst)
(string-intersperse (reverse res) "") (string-intersperse (reverse res) "")
(loop (cdr lst) (loop (cdr lst)
(cons (let* ((chs (car lst)) (cons (let* ((chs (utf8-char->string (car lst)))
(ch1 (if (= (string-length chs) 1) (ch1 (if (= (string-length chs) 1)
(string-ref chs 0) (string-ref chs 0)
(integer->char 31)))) (integer->char 31))))