Small factoring

library/ui/cocoa/application-utils.factor

@@ -50,6 +50,9 @@ threads ;
 
 : finish-launching ( -- ) NSApp [finishLaunching] ;
 
+: install-delegate ( receiver delegate -- )
+    [alloc] [init] [setDelegate:] ;
+
 IN: errors
 
 : objc-error. ( error -- )

library/ui/cocoa/ui.factor

@@ -22,8 +22,7 @@ objc-NSObject objc-NSWindow sequences ;
 } { } define-objc-class
 
 : install-app-delegate ( -- )
-    NSApp
-    FactorApplicationDelegate [alloc] [init] [setDelegate:] ;
+    NSApp FactorApplicationDelegate install-delegate ;
 
 : init-cocoa-ui ( -- )
     reset-callbacks

library/ui/cocoa/window-utils.factor

@@ -78,4 +78,4 @@ sequences ;
 } { } define-objc-class
 
 : install-window-delegate ( window -- )
-    FactorWindowDelegate [alloc] [init] [setDelegate:] ;
+    FactorWindowDelegate install-delegate ;