Use Unicode character names

db4
Slava Pestov 2009-02-21 00:55:50 -06:00
parent 89f1ac4afd
commit 221222cb8f
1 changed files with 4 additions and 4 deletions

View File

@ -281,10 +281,10 @@ HOOK: modifiers>string os ( modifiers -- string )
M: macosx modifiers>string
[
{
{ A+ [ "" ] }
{ M+ [ "" ] }
{ S+ [ "" ] }
{ C+ [ "" ] }
{ A+ [ "\u{place-of-interest-sign}" ] }
{ M+ [ "\u{option-key}" ] }
{ S+ [ "\u{upwards-white-arrow}" ] }
{ C+ [ "\u{up-arrowhead}" ] }
} case
] map "" join ;