Using "same?" in more places.

[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 43cf5c3325fdf2c7bc6a6b5426a365acd3261cd7..750f634f79a265c5050ecfd085f9f12b782e2e01 100644 (file)
--- a/basis/tools/profiler/sampling/sampling.factor
+++ b/basis/tools/profiler/sampling/sampling.factor
@@ -147,7 +147,7 @@ PRIVATE>
     per-word-samples [ f 0 <profile-node> ] assoc-map ;
 
 : redundant-flat-node? ( child-node root-node -- ? )
-    [ total-time>> ] bi@ = ;
+    [ total-time>> ] same? ;
 
 : trim-flat ( root-node -- root-node' )
     dup '[ [ nip _ redundant-flat-node? not ] assoc-filter ] change-children ;