fix load errors
parent
8cf2fd88a5
commit
482efc9c58
|
@ -32,5 +32,5 @@ IN: crypto
|
|||
! ! #! Cryptographically secure random number using Blum-Blum-Shub 256
|
||||
! [ log2 1+ random-bits ] keep dupd >= [ -1 shift ] when ;
|
||||
|
||||
M: blum-blum-shub random-32 ( bbs -- r )
|
||||
M: blum-blum-shub random-32* ( bbs -- r )
|
||||
;
|
||||
|
|
|
@ -7,5 +7,5 @@ C: <random-dummy> random-dummy
|
|||
M: random-dummy seed-random ( seed obj -- )
|
||||
(>>i) ;
|
||||
|
||||
M: random-dummy random-32 ( obj -- r )
|
||||
M: random-dummy random-32* ( obj -- r )
|
||||
[ dup 1+ ] change-i drop ;
|
||||
|
|
Loading…
Reference in New Issue