need to pass world as arg to pixel-format hooks

[factor.git] / basis / ui / gadgets / worlds / worlds.factor

diff --git a/basis/ui/gadgets/worlds/worlds.factor b/basis/ui/gadgets/worlds/worlds.factor
index 0328d453d4f2ab56cff8d07dd168da20b9b89ebe..c66e59b292bd1859ff0fba7bbc69e7007e5be933 100644 (file)
--- a/basis/ui/gadgets/worlds/worlds.factor
+++ b/basis/ui/gadgets/worlds/worlds.factor
@@ -157,5 +157,5 @@ M: world world-pixel-format-attributes
     { windowed double-buffered T{ depth-bits { value 16 } } } ;
 
 : with-world-pixel-format ( world quot -- )
-    [ dup world-pixel-format-attributes <pixel-format> ]
+    [ dup dup world-pixel-format-attributes <pixel-format> ]
     dip with-disposal ; inline