windows.offscreen: generalize the declared effect of with-memory-dc

2010-03-12 19:59:21 -08:00 · 2010-03-12 19:59:21 -08:00 · f13a031f8f
parent 8687a7e283
commit f13a031f8f
1 changed files with 1 additions and 1 deletions
--- a/basis/windows/offscreen/offscreen.factor
+++ b/basis/windows/offscreen/offscreen.factor
@ -46,7 +46,7 @@ IN: windows.offscreen
        ubyte-components >>component-type
        t >>upside-down? ;

-: with-memory-dc ( quot: ( hDC -- ) -- )
+: with-memory-dc ( ..a quot: ( ..a hDC -- ..b ) -- ..b )
    [ [ f CreateCompatibleDC &DeleteDC ] dip call ] with-destructors ; inline

 :: make-bitmap-image ( dim dc quot -- image )