[CM] Unicode support

[Rudolf Adamkovič]

Hi there!

The s7 website says that s7 "has [...] unicode, and so on."

Yet, I struggle to print five black squares (U+25A0) in s7:

λ (make-string 5 #\■)

;make-string second argument, #\■, is an undefined object but should be a
character

λ (make-string 5 #\x25A0)

;make-string second argument, #\x25A0, is an undefined object but should be a
character

λ (make-string 5 (string-ref "■" 0))

... prints nothing

All three attempts above work great in Guile, as usual.

Any ideas?

Rudy
-- 
"Genius is 1% inspiration and 99% perspiration."
-- Thomas Alva Edison, 1932

Rudolf Adamkovič <salutis at me.com> [he/him]
Studenohorská 25
84103 Bratislava
Slovakia