continuations[-docs]: add the finally word

[factor.git] / basis / opengl / framebuffers / framebuffers.factor

diff --git a/basis/opengl/framebuffers/framebuffers.factor b/basis/opengl/framebuffers/framebuffers.factor
index 3eb3705d0c2819bce0d9f0db4adbce3fee440053..18027e18c30c5db779a54d1fe323c4cf770b5dd1 100644 (file)
--- a/basis/opengl/framebuffers/framebuffers.factor
+++ b/basis/opengl/framebuffers/framebuffers.factor
@@ -37,7 +37,7 @@ IN: opengl.framebuffers
 
 : with-framebuffer ( id quot -- )
     [ GL_DRAW_FRAMEBUFFER swap glBindFramebuffer ] dip
-    [ GL_DRAW_FRAMEBUFFER 0 glBindFramebuffer ] [ ] cleanup ; inline
+    [ GL_DRAW_FRAMEBUFFER 0 glBindFramebuffer ] finally ; inline
 
 : with-draw-read-framebuffers ( draw-id read-id quot -- )
     [
@@ -47,7 +47,7 @@ IN: opengl.framebuffers
     [
         GL_DRAW_FRAMEBUFFER 0 glBindFramebuffer
         GL_READ_FRAMEBUFFER 0 glBindFramebuffer
-    ] [ ] cleanup ; inline
+    ] finally ; inline
 
 : framebuffer-attachment ( attachment -- id )
     GL_FRAMEBUFFER swap GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME