Fix stack leak on resize.

2022-03-14 10:21:08 -07:00
parent 1b09f7a2b0
commit 0bbc8c3a48
1 changed files with 1 additions and 1 deletions
--- 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