From eb5a4383e133f20445cf9a630c3a6becb27a479b Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Mon, 26 Oct 2009 13:53:33 -0500
Subject: [PATCH] gpu.buffers: fix stack effect of with-mapped-buffer

---
 extra/gpu/buffers/buffers.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/gpu/buffers/buffers.factor b/extra/gpu/buffers/buffers.factor
index 3de5a03d35..351a8b39b0 100644
--- a/extra/gpu/buffers/buffers.factor
+++ b/extra/gpu/buffers/buffers.factor
@@ -124,7 +124,7 @@ UNION: gpu-data-ptr buffer-ptr c-ptr ;
 
     quot call
 
-    target glUnmapBuffer ; inline
+    target glUnmapBuffer drop ; inline
 
 :: with-bound-buffer ( buffer target quot: ( -- ) -- )
     target gl-target buffer glBindBuffer