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