steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Doug Coleman 2014-01-11 11:13:39 -08:00
parent 67a71d0974
commit 7c93316fbe
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/crypto/aes/aes-tests.factor
View File

@ -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
] unit-test

2
extra/crypto/aes/utils/utils.factor
View File

@ -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