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

fix typo

db4
Doug Coleman 2009-05-22 17:18:24 -05:00
parent 92ecb2f3be
commit d660dd4ed6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,7 +1,7 @@
USING: accessors alien.c-types byte-arrays USING: accessors alien.c-types byte-arrays
combinators.short-circuit continuations destructors init kernel combinators.short-circuit continuations destructors init kernel
locals namespaces random windows.advapi32 windows.errors locals namespaces random windows.advapi32 windows.errors
windows.kernel32 ; windows.kernel32 math.bitwise ;
IN: random.windows IN: random.windows
TUPLE: windows-rng provider type ; TUPLE: windows-rng provider type ;
@ -35,7 +35,8 @@ CONSTANT: factor-crypto-container "FactorCryptoContainer"
] if ; ] if ;
: create-crypto-context ( provider type -- handle ) : create-crypto-context ( provider type -- handle )
{ CRYPT_MACHINE_KEYSET CRYPT_NEWKEYSET } (acquire-crypto-context) win32-error=0/f *void* ; { CRYPT_MACHINE_KEYSET CRYPT_NEWKEYSET } flags
(acquire-crypto-context) win32-error=0/f *void* ;
ERROR: acquire-crypto-context-failed provider type ; ERROR: acquire-crypto-context-failed provider type ;