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

[factor.git] / core / quotations / quotations.factor

diff --git a/core/quotations/quotations.factor b/core/quotations/quotations.factor
index 31e5e4753d2b86613b663316bda4cfd0855e7226..2df11d485874958d20f3acbd412844110f307abc 100644 (file)
--- a/core/quotations/quotations.factor
+++ b/core/quotations/quotations.factor
@@ -49,7 +49,10 @@ M: wrapper literalize <wrapper> ;
 M: curry length quot>> length 1+ ;
 
 M: curry nth
-    over zero? [ nip obj>> literalize ] [ >r 1- r> quot>> nth ] if ;
+    over 0 =
+    [ nip obj>> literalize ]
+    [ [ 1- ] dip quot>> nth ]
+    if ;
 
 INSTANCE: curry immutable-sequence