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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/random/blum-blum-shub/blum-blum-shub.factor
View File

@ -32,5 +32,5 @@ IN: crypto
! ! #! Cryptographically secure random number using Blum-Blum-Shub 256 ! ! #! Cryptographically secure random number using Blum-Blum-Shub 256
! [ log2 1+ random-bits ] keep dupd >= [ -1 shift ] when ; ! [ 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 )
; ;

2
extra/random/dummy/dummy.factor
View File

@ -7,5 +7,5 @@ C: <random-dummy> random-dummy
M: random-dummy seed-random ( seed obj -- ) M: random-dummy seed-random ( seed obj -- )
(>>i) ; (>>i) ;
M: random-dummy random-32 ( obj -- r ) M: random-dummy random-32* ( obj -- r )
[ dup 1+ ] change-i drop ; [ dup 1+ ] change-i drop ;