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

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

diff --git a/extra/crypto/aes/aes.factor b/extra/crypto/aes/aes.factor
index 48fec0c322dda43b2d880bbc1f7ba11149f3c3e0..7e63b4803e9365eaa86fa7acc9b094600a0313a9 100644 (file)
--- a/extra/crypto/aes/aes.factor
+++ b/extra/crypto/aes/aes.factor
@@ -155,7 +155,7 @@ M: aes-256-key key-expand-round ( temp i -- temp' )
 
 : (key-sched-round) ( output temp i -- output' )
     key-expand-round
-    [ dup 4th-from-end ] dip bitxor suffix! ; inline
+    [ dup 4th-from-tail ] dip bitxor suffix! ; inline
 
 : (sched-interval) ( K Nr -- seq )
     [ length ] dip 1 + 4 * [a..b) ;    ! over the interval Nk...Nb(Nr + 1)