with-c-random ( quot -- )

Vocabulary

random.c

Inputs

quot

an object

Outputs

None

Definition

USING: kernel random ;

IN: random.c

: with-c-random ( quot -- ) [ c-random ] dip with-random ;
    inline