continuations[-docs]: add the finally word

[factor.git] / basis / tools / profiler / sampling / sampling.factor

diff --git a/basis/tools/profiler/sampling/sampling.factor b/basis/tools/profiler/sampling/sampling.factor
index b6aa596823fa5a3a4abf075b9b2b875da43faa37..c0ba754fe9ab88eb54313ba7bd3fcaa6b9c91394 100644 (file)
--- a/basis/tools/profiler/sampling/sampling.factor
+++ b/basis/tools/profiler/sampling/sampling.factor
@@ -30,7 +30,7 @@ PRIVATE>
 : profile ( quot -- )
     samples-per-second get-global profiling
     [ 0 profiling (get-samples) raw-profile-data set-global ]
-    [ ] cleanup ; inline
+    finally ; inline
 
 : total-sample-count ( sample -- count ) 0 swap nth ;
 : gc-sample-count ( sample -- count ) 1 swap nth ;