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/util-string.scm
View file

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