core-foundation.strings: using map!.

2012-07-17 22:54:08 -07:00 · 2012-07-17 22:54:08 -07:00 · daaa62d498
parent 940848a813
commit daaa62d498
1 changed files with 1 additions and 1 deletions
--- a/basis/core-foundation/strings/strings.factor
+++ b/basis/core-foundation/strings/strings.factor
@ -69,7 +69,7 @@ FUNCTION: CFStringRef CFCopyTypeIDDescription ( CFTypeID type_id ) ;
    [
        dup { [ 0x10ffff > ] [ 0xd800 0xdfff between? ] } 1||
        [ drop 0xfffd ] when
-    ] map utf8 encode ;
+    ] map! utf8 encode ;

 : <CFString> ( string -- alien )
    [ f ] dip