fix load errors

db4
Doug Coleman 2008-03-28 15:09:21 -05:00
parent 8cf2fd88a5
commit 482efc9c58
2 changed files with 2 additions and 2 deletions

View File

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

View File

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