From: Joe Groff <arcata@gmail.com>
Date: Sat, 27 Aug 2011 22:53:07 +0000 (-0700)
Subject: images.gdiplus, windows.gdiplus, windows.streams: update for change to with-out-param... 
X-Git-Tag: 0.97~4241^2
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=baeb8a45fe4a1ff23f575bc0852be2425eab67f0

images.gdiplus, windows.gdiplus, windows.streams: update for change to with-out-parameters
---

diff --git a/basis/images/gdiplus/gdiplus.factor b/basis/images/gdiplus/gdiplus.factor
index 97bc52375f..7b47af3d3a 100644
--- a/basis/images/gdiplus/gdiplus.factor
+++ b/basis/images/gdiplus/gdiplus.factor
@@ -23,17 +23,17 @@ SINGLETON: gdi+-image
 : stream>gdi+-bitmap ( stream -- bitmap )
     stream>IStream &com-release
     { void* } [ GdipCreateBitmapFromStream check-gdi+-status ]
-    [ ] with-out-parameters &GdipFree ;
+    with-out-parameters &GdipFree ;
 
 : gdi+-bitmap-width ( bitmap -- w )
     { UINT } [ GdipGetImageWidth check-gdi+-status ]
-    [ ] with-out-parameters ;
+    with-out-parameters ;
 : gdi+-bitmap-height ( bitmap -- w )
     { UINT } [ GdipGetImageHeight check-gdi+-status ]
-    [ ] with-out-parameters ;
+    with-out-parameters ;
 : gdi+-lock-bitmap ( bitmap rect mode format -- data )
     { BitmapData } [ GdipBitmapLockBits check-gdi+-status ]
-    [ clone ] with-out-parameters ;
+    with-out-parameters ;
 
 :: gdi+-bitmap>data ( bitmap -- w h pixels )
     bitmap [ gdi+-bitmap-width ] [ gdi+-bitmap-height ] bi :> ( w h )
diff --git a/basis/windows/gdiplus/gdiplus.factor b/basis/windows/gdiplus/gdiplus.factor
index 66300f9a90..6978381b70 100644
--- a/basis/windows/gdiplus/gdiplus.factor
+++ b/basis/windows/gdiplus/gdiplus.factor
@@ -1640,7 +1640,7 @@ CONSTANT: standard-gdi+-startup-input
 
 : (start-gdi+) ( startup-input -- token startup-output )
     { ULONG_PTR GdiplusStartupOutput }
-    [ swapd GdiplusStartup check-gdi+-status ] [ ] with-out-parameters ;
+    [ swapd GdiplusStartup check-gdi+-status ] with-out-parameters ;
 : start-gdi+ ( -- token )
     standard-gdi+-startup-input (start-gdi+) drop ; inline
 : stop-gdi+ ( token -- )
diff --git a/basis/windows/streams/streams.factor b/basis/windows/streams/streams.factor
index 33c519e500..2f3eef6324 100644
--- a/basis/windows/streams/streams.factor
+++ b/basis/windows/streams/streams.factor
@@ -94,7 +94,7 @@ SPECIALIZED-ARRAY: uchar
         S_OK
     ] with-hresult ;
 
-:: IStream-clone ( out-clone-stream -- hresult )
+:: IStream-clone ( stream out-clone-stream -- hresult )
     f out-clone-stream 0 void* set-alien-value
     STG_E_INVALIDFUNCTION ;