From: Joe Groff <arcata@gmail.com>
Date: Sat, 13 Mar 2010 03:59:21 +0000 (-0800)
Subject: windows.offscreen: generalize the declared effect of with-memory-dc
X-Git-Tag: 0.97~4756
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=f13a031f8facf5765decb7965b49645e5b287bf0

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

diff --git a/basis/windows/offscreen/offscreen.factor b/basis/windows/offscreen/offscreen.factor
index e38477c98c..4b4847f964 100644
--- 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 )