cuda.devices: Utility word to print all cuda devices.

diff --git a/extra/cuda/devices/devices.factor b/extra/cuda/devices/devices.factor
index dc69946648dc5f9618d5b8d11a4aea88d1c8c3ea..5536dcd8977751d7a9687a4fe1cb2cc537b787fe 100644 (file)
--- a/extra/cuda/devices/devices.factor
+++ b/extra/cuda/devices/devices.factor
@@ -61,6 +61,10 @@ IN: cuda.devices
         ]
     } cleave ;
 
+: cuda-devices. ( -- )
+    init-cuda
+    enumerate-cuda-devices [ cuda-device. ] each ;
+
 : cuda. ( -- )
     init-cuda
     "CUDA Version: " write cuda-version number>string print nl