continuations[-docs]: add the finally word

[factor.git] / extra / compiler / cfg / gvn / testing / testing.factor

diff --git a/extra/compiler/cfg/gvn/testing/testing.factor b/extra/compiler/cfg/gvn/testing/testing.factor
index 73e7fe060a9fca9737b332373b2e7fd4c0e55666..3d0f68fc7a083e1af1df62117617670204205fa1 100644 (file)
--- a/extra/compiler/cfg/gvn/testing/testing.factor
+++ b/extra/compiler/cfg/gvn/testing/testing.factor
@@ -93,14 +93,14 @@ SYMBOL: iteration
     ] with-variable ;
 
 : watch-gvn ( path quot -- )
-    annotate-gvn [ test-gvn ] [ reset-gvn ] [ ] cleanup ;
+    annotate-gvn [ test-gvn ] [ reset-gvn ] finally ;
 
 : watch-gvn-cfg ( path cfg -- )
     annotate-gvn [
         { value-numbering } passes [
             0 iteration [ watch-cfg ] with-variable
         ] with-variable
-    ] [ reset-gvn ] [ ] cleanup ;
+    ] [ reset-gvn ] finally ;
 
 : watch-gvn-bb ( path insns -- )
     0 test-bb 0 get block>cfg watch-gvn-cfg ;