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

don't clean up windows rng yet, needs refactoring first

Doug Coleman 2009-11-30 16:59:40 -06:00
parent 49980be091
commit 472e77cb00
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/random/windows/windows.factor
View File

@ -4,7 +4,7 @@ locals namespaces random windows.advapi32 windows.errors
windows.kernel32 math.bitwise ;
IN: random.windows
TUPLE: windows-rng provider type ;
TUPLE: windows-rng < disposable provider type ;
C: <windows-rng> windows-rng
TUPLE: windows-crypto-context handle ;
@ -69,7 +69,7 @@ M: windows-rng random-bytes* ( n tuple -- bytes )
[
[
system-random-generator get-global &dispose drop
secure-random-generator get-global &dispose drop
! system-random-generator get-global &dispose drop
! secure-random-generator get-global &dispose drop
] with-destructors
] "random.windows" add-shutdown-hook