Fix word style, and NSOpenPanel crash

TODO.FACTOR.txt

@@ -1,7 +1,5 @@
 - remove F_USERENV rel
-- cocoa exceptions are broken
 - method ordering and interpreter algorithm sections need updates
-- run file dialog is broken
 - update walker for new interpreter
 - quotations should store their originating word
 - core foundation should use unicode strings

library/cocoa/dialogs.factor

@@ -9,12 +9,11 @@ sequences ;
     dup 1 [setCanChooseFiles:]
     dup 0 [setCanChooseDirectories:]
     dup 1 [setResolvesAliases:]
-    dup 1 [setAllowsMultipleSelection:]
-    [autorelease] ;
+    dup 1 [setAllowsMultipleSelection:] ;
 
 : NSOKButton 1 ;
 : NSCancelButton 0 ;
 
 : open-panel ( -- paths )
     <NSOpenPanel> dup f [runModalForTypes:] NSOKButton =
-    [ [filenames] CF>array [ CF>string ] map ] [ f ] if ;
+    [ [filenames] CF>array [ CF>string ] map ] [ drop f ] if ;

library/syntax/prettyprint.factor

@@ -158,7 +158,10 @@ M: block pprint-section* ( block -- )
 GENERIC: pprint* ( obj -- )
 
 : word-style ( word -- style )
-    parsing? H{ { font-style bold } } H{ } ? ;
+    [
+        dup presented set
+        parsing? [ bold font-style set ] when
+    ] make-hash ;
 
 : pprint-word ( obj -- )
     dup word-name [ "( ? )" ] unless*