need to pass world as arg to pixel-format hooks

[factor.git] / basis / ui / backend / cocoa / cocoa.factor

diff --git a/basis/ui/backend/cocoa/cocoa.factor b/basis/ui/backend/cocoa/cocoa.factor
index 297996e9db5797c3cc36f32687a1323cbde6ba0c..a4dbf670e2d2fcb7b0883ac1db9b6673debd361f 100755 (executable)
--- a/basis/ui/backend/cocoa/cocoa.factor
+++ b/basis/ui/backend/cocoa/cocoa.factor
@@ -51,14 +51,14 @@ PIXEL-FORMAT-ATTRIBUTE-TABLE: NSOpenGLPFA { } H{
 PRIVATE>
 
 M: cocoa-ui-backend (make-pixel-format)
-    >NSOpenGLPFA-int-array
+    nip >NSOpenGLPFA-int-array
     NSOpenGLPixelFormat -> alloc swap -> initWithAttributes: ;
 
 M: cocoa-ui-backend (free-pixel-format)
-    -> release ;
+    handle>> -> release ;
 
 M: cocoa-ui-backend (pixel-format-attribute)
-    >NSOpenGLPFA
+    [ handle>> ] [ >NSOpenGLPFA ] bi*
     [ drop f ]
     [ first 0 <int> [ swap 0 -> getValues:forAttribute:forVirtualScreen: ] keep *int ]
     if-empty ;