with-each-cuda-device ( quot -- )


Vocabulary
cuda.devices

Inputs
quotan object


Outputs
None

Definition
USING: cuda.contexts kernel sequences ;

IN: cuda.devices

: with-each-cuda-device ( quot -- )
[ enumerate-cuda-devices ] dip [ [ 0 ] ] dip
[ with-cuda-context ] curry compose each ; inline