continuations[-docs]: add the finally word

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

diff --git a/extra/cuda/contexts/contexts.factor b/extra/cuda/contexts/contexts.factor
index 175a35143c58849e9ba577d268305985edf07ed0..b3cab931cbac012dc9d401cd5fc88181b55cad55 100644 (file)
--- a/extra/cuda/contexts/contexts.factor
+++ b/extra/cuda/contexts/contexts.factor
@@ -28,7 +28,7 @@ DESTRUCTOR: destroy-context
 DESTRUCTOR: clean-up-context
 
 : (with-cuda-context) ( context quot -- )
-    swap '[ _ clean-up-context ] [ ] cleanup ; inline
+    swap '[ _ clean-up-context ] finally ; inline
 
 : with-cuda-context ( device flags quot -- )
     [ set-up-cuda-context create-context ] dip (with-cuda-context) ; inline