Removing more >r/r> usages

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

diff --git a/basis/tools/profiler/profiler.factor b/basis/tools/profiler/profiler.factor
index b7f7ae97a691716b8121e9bd7509f603397bd5c3..f21e8498ebeca28f09fb65d28866646acd98f2ce 100644 (file)
--- a/basis/tools/profiler/profiler.factor
+++ b/basis/tools/profiler/profiler.factor
@@ -34,7 +34,7 @@ M: method-body (profile.)
 
 : counter. ( obj n -- )
     [
-        >r [ (profile.) ] with-cell r>
+        [ [ (profile.) ] with-cell ] dip
         [ number>string write ] with-cell
     ] with-row ;