continuations[-docs]: add the finally word

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

diff --git a/basis/opengl/shaders/shaders.factor b/basis/opengl/shaders/shaders.factor
index a4a21880e7c10c1b0ca2e3104252363fe4d9f01c..22086b986d47d62ac6fbeb7cf56873e753ff4fc1 100644 (file)
--- a/basis/opengl/shaders/shaders.factor
+++ b/basis/opengl/shaders/shaders.factor
@@ -114,7 +114,7 @@ PREDICATE: fragment-shader < gl-shader (fragment-shader?) ;
     ] each glDeleteProgram ;
 
 : with-gl-program ( program quot -- )
-    over glUseProgram [ 0 glUseProgram ] [ ] cleanup ; inline
+    over glUseProgram [ 0 glUseProgram ] finally ; inline
 
 PREDICATE: gl-program < integer (gl-program?) ;