From f38bfe77264907d8b949aab2c0b27a9d705f239f Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 9 Sep 2015 09:08:51 -0400
Subject: render: mesh: Tweak with-mesh to use null-mesh.

* sly/render/mesh.scm (with-mesh): Apply the null-mesh after evaluating
  the body.
---
 sly/render/mesh.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sly/render/mesh.scm b/sly/render/mesh.scm
index 1a666e3..69f89ce 100644
--- a/sly/render/mesh.scm
+++ b/sly/render/mesh.scm
@@ -230,7 +230,7 @@
   (begin
     (apply-mesh vao)
     body ...
-    (glBindVertexArray 0)))
+    (apply-mesh null-mesh)))
 
 (define (vertex-attrib-pointer location vbo)
   (glEnableVertexAttribArray location)
-- 
cgit v1.2.3