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 M: macosx modifiers>string
[ [
{ {
{ A+ [ "" ] } { A+ [ "\u{place-of-interest-sign}" ] }
{ M+ [ "" ] } { M+ [ "\u{option-key}" ] }
{ S+ [ "" ] } { S+ [ "\u{upwards-white-arrow}" ] }
{ C+ [ "" ] } { C+ [ "\u{up-arrowhead}" ] }
} case } case
] map "" join ; ] map "" join ;