From 7648fe4df578c4afcf2309b8a82c4070e68ee575 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 25 Jan 2015 12:40:21 -0500
Subject: render: context: Reset state after rendering.

Fixes state pollution issues where GL objects remained bound after
rendering.

* sly/render/context.scm (with-render-context): Call
  'render-context-reset!' after evaluating the body.
---
 sly/render/context.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/sly/render/context.scm b/sly/render/context.scm
index fb28eda..dc89fad 100644
--- a/sly/render/context.scm
+++ b/sly/render/context.scm
@@ -82,7 +82,9 @@
   (%set-render-context-mesh! context #f))
 
 (define-syntax-rule (with-render-context context body ...)
-  (begin (render-context-reset! context) body ...))
+  (begin (render-context-reset! context)
+         body ...
+         (render-context-reset! context)))
 
 (define (set-render-context-blend-mode! context blend-mode)
   (unless (equal? (render-context-blend-mode context) blend-mode)
-- 
cgit v1.2.3