From 0bbc8c3a4833d5305198aa82820a25276c1062fe Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Mon, 14 Mar 2022 10:21:08 -0700
Subject: [PATCH] Fix stack leak on resize.

---
 posix/graphics.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/posix/graphics.fs b/posix/graphics.fs
index cc2acf9..261af81 100644
--- a/posix/graphics.fs
+++ b/posix/graphics.fs
@@ -49,7 +49,7 @@ StructureNotifyMask or constant EVENT-MASK
 
 : image-resize { w h }
   w to width   h to height
-  image if image XDestroyImage then
+  image if image XDestroyImage drop then
   w h * 4* malloc dup 0= throw to backbuffer
   display visual screen-depth ZPixmap 0 backbuffer
     width height 32 width 4* XCreateImage to image