18 lines
329 B
Factor
18 lines
329 B
Factor
! Copyright (C) 2013 John Benediktsson
|
|
! See http://factorcode.org/license.txt for BSD license
|
|
|
|
USING: alien.c-types alien.syntax kernel random ;
|
|
|
|
IN: random.c
|
|
|
|
LIBRARY: libc
|
|
|
|
FUNCTION: int rand ( ) ;
|
|
|
|
SINGLETON: c-random
|
|
|
|
M: c-random random-32* drop rand ;
|
|
|
|
: with-c-random ( quot -- )
|
|
[ c-random ] dip with-random ; inline
|