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

Fixup for compiling new table module.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-15 14:35:11 +02:00
parent 3f7f1356a4
commit 3e4e8c4672
4 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/util-utf8.scm
View file

@ -163,7 +163,10 @@
3))
((= (bitwise-and byte #b11110000) #b11110000)
(values (bitwise-and byte #b111)
4)))))
4))
(else
;; Should not happen
(values 0 0)))))
(loop (cdr bytes)
(list byte)
(arithmetic-shift first-byte 6)