continuations[-docs]: add the finally word

[factor.git] / extra / cuda / gl / gl.factor

diff --git a/extra/cuda/gl/gl.factor b/extra/cuda/gl/gl.factor
index a4257c2dbbc1c295a811fd451283fadc4871619d..9b71d7dec48bec1559bf52964eaacec33931469d 100644 (file)
--- a/extra/cuda/gl/gl.factor
+++ b/extra/cuda/gl/gl.factor
@@ -39,7 +39,7 @@ DESTRUCTOR: unmap-resource
 DESTRUCTOR: free-resource
 
 : with-mapped-resource ( ..a resource quot: ( ..a device-ptr size -- ..b ) -- ..b )
-    over [ map-resource ] 2dip '[ _ unmap-resource ] [ ] cleanup ; inline
+    over [ map-resource ] 2dip '[ _ unmap-resource ] finally ; inline
 
 TUPLE: cuda-buffer
     { buffer buffer }