Refactor all usages of >r/r> in core to use dip, 2dip, 3dip

[factor.git] / core / compiler / errors / errors.factor

diff --git a/core/compiler/errors/errors.factor b/core/compiler/errors/errors.factor
index c2452f719da75038f39175adc1d7f93ea0a66720..1ea497c3fc5cbeab65f5e8b63329c4dac23b7a7d 100644 (file)
--- a/core/compiler/errors/errors.factor
+++ b/core/compiler/errors/errors.factor
@@ -20,7 +20,7 @@ SYMBOL: with-compiler-errors?
 
 : errors-of-type ( type -- assoc )
     compiler-errors get-global
-    swap [ >r nip compiler-error-type r> eq? ] curry
+    swap [ [ nip compiler-error-type ] dip eq? ] curry
     assoc-filter ;
 
 : compiler-errors. ( type -- )