Removing more >r/r> usages

[factor.git] / basis / logging / analysis / analysis.factor

diff --git a/basis/logging/analysis/analysis.factor b/basis/logging/analysis/analysis.factor
index 1e1e31c501fc5d9ef87b057c20fae1dd4034417a..d84e49f784cb63781bcf1c18e414e9ae1fde1d2b 100644 (file)
--- a/basis/logging/analysis/analysis.factor
+++ b/basis/logging/analysis/analysis.factor
@@ -38,8 +38,8 @@ SYMBOL: message-histogram
 \r
 : histogram. ( assoc quot -- )\r
     standard-table-style [\r
-        >r >alist sort-values <reversed> r> [\r
-            [ >r swap r> with-cell pprint-cell ] with-row\r
+        [ >alist sort-values <reversed> ] dip [\r
+            [ swapd with-cell pprint-cell ] with-row\r
         ] curry assoc-each\r
     ] tabular-output ;\r
 \r
@@ -69,7 +69,7 @@ SYMBOL: message-histogram
     errors. ;\r
 \r
 : analyze-log ( lines word-names -- )\r
-    >r parse-log r> analyze-entries analysis. ;\r
+    [ parse-log ] dip analyze-entries analysis. ;\r
 \r
 : analyze-log-file ( service word-names -- )\r
-    >r parse-log-file r> analyze-entries analysis. ;\r
+    [ parse-log-file ] dip analyze-entries analysis. ;\r