From 7b9a757076d610b52688d44cb3100e1e6baadb44 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 26 Apr 2008 13:04:10 -0500
Subject: [PATCH] keep gadget on stack, fix stack effect

---
 extra/graphics/bitmap/bitmap.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/graphics/bitmap/bitmap.factor b/extra/graphics/bitmap/bitmap.factor
index d9cc310454..611319e28b 100755
--- a/extra/graphics/bitmap/bitmap.factor
+++ b/extra/graphics/bitmap/bitmap.factor
@@ -117,8 +117,8 @@ M: bitmap height ( bitmap -- ) bitmap-height ;
 : bitmap. ( path -- )
     load-bitmap <graphics-gadget> gadget. ;
 
-: bitmap-window ( path -- )
-    load-bitmap [ <graphics-gadget> "bitmap" open-window ] keep ;
+: bitmap-window ( path -- gadget )
+    load-bitmap <graphics-gadget> [ "bitmap" open-window ] keep ;
 
 : test-bitmap24 ( -- )
     "resource:extra/graphics/bitmap/test-images/thiswayup24.bmp" bitmap. ;