14 lines
279 B
Factor
14 lines
279 B
Factor
|
! Copyright (C) 2013 John Benediktsson
|
||
|
|
! See http://factorcode.org/license.txt for BSD license
|
||
|
|
|
||
|
|
USING: cpu.x86.features kernel random ;
|
||
|
|
|
||
|
|
IN: random.rdrand
|
||
|
|
|
||
|
|
SINGLETON: rdrand
|
||
|
|
|
||
|
|
M: rdrand random-32* drop rdrand32 ;
|
||
|
|
|
||
|
|
: with-rdrand ( quot -- )
|
||
|
|
[ rdrand ] dip with-random ; inline
|