crypto.aes: <sliced-groups> is now just <groups>, add a missing using.

diff --git a/extra/crypto/aes/aes-tests.factor b/extra/crypto/aes/aes-tests.factor
index 5c9f78de0c624a7a44895c0f4fd43cd0d81fef32..079197c1be6788459a433aaaad610c6496b1e592 100644 (file)
--- a/extra/crypto/aes/aes-tests.factor
+++ b/extra/crypto/aes/aes-tests.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors byte-arrays.hex crypto.aes crypto.aes.utils
-grouping kernel sequences tools.test ;
+USING: accessors byte-arrays.hex crypto.aes crypto.aes.private
+crypto.aes.utils grouping kernel sequences tools.test ;
 IN: crypto.aes.tests
 
 #! fips-197 test vectors
@@ -188,4 +188,4 @@ V{ 729683222 682545830 2885096840 164581180 2700803607 2287217841
 
 [ t ] [
     sbox [ dup inv-sbox nth sbox nth = ] all?
-] unit-test
\ No newline at end of file
+] unit-test

diff --git a/extra/crypto/aes/utils/utils.factor b/extra/crypto/aes/utils/utils.factor
index d4606aa40aaa0594283850c0a11976e38f4aca56..4336bcc92f7ede08e750fb3a586e2ebe52ef908f 100644 (file)
--- a/extra/crypto/aes/utils/utils.factor
+++ b/extra/crypto/aes/utils/utils.factor
@@ -23,7 +23,7 @@ IN: crypto.aes.utils
     [ gb3 ] keep [ gb2 ] keep [ gb1 ] keep gb0 ; inline
 
 : bytes>words ( seq -- seq )
-    4 <sliced-groups> [ <reversed> first4 >ui32 ] V{ } map-as ;
+    4 <groups> [ <reversed> first4 >ui32 ] V{ } map-as ;
 
 : .t ( seq -- )
     reverse