From 3c305bd401bf681b08f855c3fe625124ed65a036 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 12 Jan 2015 21:50:26 -0500 Subject: framebuffer: Fix syntax problem in 'with-framebuffer'. * sly/render/framebuffer.scm (with-framebuffer): Bind framebuffer to a syntactic variable that doesn't clash with the 'version-3-0' macro. --- sly/render/framebuffer.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sly/render/framebuffer.scm b/sly/render/framebuffer.scm index a8c93d1..bf9f84b 100644 --- a/sly/render/framebuffer.scm +++ b/sly/render/framebuffer.scm @@ -110,9 +110,9 @@ dimensions WIDTH x HEIGHT." texture-id #f width height 0 0 1 1))) (%make-framebuffer framebuffer-id renderbuffer-id texture)))))) -(define-syntax-rule (with-framebuffer framebuffer body ...) +(define-syntax-rule (with-framebuffer fb body ...) (begin (glBindFramebuffer (version-3-0 framebuffer) - (framebuffer-id framebuffer)) + (framebuffer-id fb)) body ... (glBindFramebuffer (version-3-0 framebuffer) 0))) -- cgit v1.2.3