basis: use head-to-index and index-to-tail

[factor.git] / extra / crypto / aes / utils / utils.factor

diff --git a/extra/crypto/aes/utils/utils.factor b/extra/crypto/aes/utils/utils.factor
index 0c701ec16faf21e88f0b85e4ee0120becef703fa..9a21572d708cd1a6e92cb32759b6f2f35cad3c95 100644 (file)
--- a/extra/crypto/aes/utils/utils.factor
+++ b/extra/crypto/aes/utils/utils.factor
@@ -57,5 +57,5 @@ IN: crypto.aes.utils
     a2 2 seq set-nth-unsafe
     a3 3 seq set-nth-unsafe ;
 
-: 4th-from-end ( seq -- el )
+: 4th-from-tail ( seq -- el )
     [ length 4 - ] keep nth ;