Keep the profiling results even when the quotation throws an exception.

basis/tools/profiler/sampling/sampling.factor

@@ -24,8 +24,9 @@ CONSTANT: ignore-words
 
 : profile ( quot -- )
     samples-per-second get-global profiling
-    [ 0 profiling ] [ ] cleanup
-    (get-samples) raw-profile-data set-global ; inline
+    [ 0 profiling ] [
+        (get-samples) raw-profile-data set-global
+    ] cleanup ; inline
 
 : total-sample-count ( sample -- count ) 0 swap nth ;
 : gc-sample-count ( sample -- count ) 1 swap nth ;