diff options
| -rw-r--r-- | sly/render.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/sly/render.scm b/sly/render.scm index 15103cd..bc6db6b 100644 --- a/sly/render.scm +++ b/sly/render.scm @@ -175,7 +175,10 @@ (stack-transform-identity! (graphics-model-view gfx))) (define-syntax-rule (with-graphics gfx body ...) - (begin (graphics-reset! gfx) body ...)) + (begin + (graphics-reset! gfx) + body ... + (graphics-reset! gfx))) (define (graphics-transform gfx) (q-front (graphics-model-view gfx))) |