diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-01-12 21:50:26 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-01-12 21:50:26 -0500 |
| commit | 3c305bd401bf681b08f855c3fe625124ed65a036 (patch) | |
| tree | 1f7fbd692a952c4376c67303d5159522d8218f2e /sly/render/framebuffer.scm | |
| parent | ccc240f978a3cecd37c9de4e9f148e56bc73ab88 (diff) | |
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.
Diffstat (limited to 'sly/render/framebuffer.scm')
| -rw-r--r-- | sly/render/framebuffer.scm | 4 |
1 files 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))) |