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

[factor.git] / core / arrays / arrays.factor

diff --git a/core/arrays/arrays.factor b/core/arrays/arrays.factor
index b023398762af1c75bec09b8013c32e4cd2142692..74bc57e9db80c80940e44df38831ffffdfac3e8a 100644 (file)
--- a/core/arrays/arrays.factor
+++ b/core/arrays/arrays.factor
@@ -6,8 +6,8 @@ IN: arrays
 
 M: array clone (clone) ;
 M: array length length>> ;
-M: array nth-unsafe >r >fixnum r> array-nth ;
-M: array set-nth-unsafe >r >fixnum r> set-array-nth ;
+M: array nth-unsafe [ >fixnum ] dip array-nth ;
+M: array set-nth-unsafe [ >fixnum ] dip set-array-nth ;
 M: array resize resize-array ;
 
 : >array ( seq -- array ) { } clone-like ;