steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

core-foundation.strings: using map!.

John Benediktsson 2012-07-17 22:54:08 -07:00
parent c9664e746b
commit 3477ec35e7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/core-foundation/strings/strings.factor
View File

@ -69,7 +69,7 @@ FUNCTION: CFStringRef CFCopyTypeIDDescription ( CFTypeID type_id ) ;
[ [
dup { [ 0x10ffff > ] [ 0xd800 0xdfff between? ] } 1|| dup { [ 0x10ffff > ] [ 0xd800 0xdfff between? ] } 1||
[ drop 0xfffd ] when [ drop 0xfffd ] when
] map utf8 encode ; ] map! utf8 encode ;
: <CFString> ( string -- alien ) : <CFString> ( string -- alien )
[ f ] dip [ f ] dip