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

diff --git a/basis/images/gdiplus/gdiplus.factor b/basis/images/gdiplus/gdiplus.factor
index 97bc52375f602416c905bf5dc243d01dc43e5388..7b47af3d3abf2a666b893070fef39b18593360cf 100644 (file)
--- a/basis/images/gdiplus/gdiplus.factor
+++ b/basis/images/gdiplus/gdiplus.factor
@@ -23,17 +23,17 @@ SINGLETON: gdi+-image
 : stream>gdi+-bitmap ( stream -- bitmap )\r
     stream>IStream &com-release\r
     { void* } [ GdipCreateBitmapFromStream check-gdi+-status ]\r
-    [ ] with-out-parameters &GdipFree ;\r
+    with-out-parameters &GdipFree ;\r
 \r
 : gdi+-bitmap-width ( bitmap -- w )\r
     { UINT } [ GdipGetImageWidth check-gdi+-status ]\r
-    [ ] with-out-parameters ;\r
+    with-out-parameters ;\r
 : gdi+-bitmap-height ( bitmap -- w )\r
     { UINT } [ GdipGetImageHeight check-gdi+-status ]\r
-    [ ] with-out-parameters ;\r
+    with-out-parameters ;\r
 : gdi+-lock-bitmap ( bitmap rect mode format -- data )\r
     { BitmapData } [ GdipBitmapLockBits check-gdi+-status ]\r
-    [ clone ] with-out-parameters ;\r
+    with-out-parameters ;\r
 \r
 :: gdi+-bitmap>data ( bitmap -- w h pixels )\r
     bitmap [ gdi+-bitmap-width ] [ gdi+-bitmap-height ] bi :> ( w h )\r

diff --git a/basis/windows/gdiplus/gdiplus.factor b/basis/windows/gdiplus/gdiplus.factor
index 66300f9a90a461db973bc1e69638f6d50372b9c0..6978381b705cb7dae81207b4bbaf0a6ac8d6d75a 100644 (file)
--- 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 33c519e5006c422979ec4d42c66b6eee0cb19e91..2f3eef6324488709ec8d22f3f7a347e467e18e78 100644 (file)
--- a/basis/windows/streams/streams.factor
+++ b/basis/windows/streams/streams.factor
@@ -94,7 +94,7 @@ SPECIALIZED-ARRAY: uchar
         S_OK\r
     ] with-hresult ;\r
 \r
-:: IStream-clone ( out-clone-stream -- hresult )\r
+:: IStream-clone ( stream out-clone-stream -- hresult )\r
     f out-clone-stream 0 void* set-alien-value\r
     STG_E_INVALIDFUNCTION ;\r
 \r