classes.struct: moving to new/boa instead of <struct>/<struct-boa>

[factor.git] / extra / cuda / devices / devices.factor

diff --git a/extra/cuda/devices/devices.factor b/extra/cuda/devices/devices.factor
index 96ae3a8d3bbb5d8f3f7889a14494708eb00d213b..038f4d2dddbf1d9d54696e4ac03b866c91dd5709 100644 (file)
--- a/extra/cuda/devices/devices.factor
+++ b/extra/cuda/devices/devices.factor
@@ -20,7 +20,7 @@ IN: cuda.devices
     [ enumerate-cuda-devices ] dip '[ 0 _ with-cuda-context ] each ; inline
 
 : cuda-device-properties ( n -- properties )
-    [ CUdevprop <struct> ] dip
+    [ CUdevprop new ] dip
     [ cuDeviceGetProperties cuda-error ] keepd ;
 
 : cuda-devices ( -- assoc )