core: Add the shuffler words but without primitives.

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

diff --git a/extra/cuda/devices/devices.factor b/extra/cuda/devices/devices.factor
index 5706ba783d042bda957a9da8907b2032d20048ce..389aba9539ed243102086c9b56ab5c4e2e348078 100644 (file)
--- a/extra/cuda/devices/devices.factor
+++ b/extra/cuda/devices/devices.factor
@@ -21,7 +21,7 @@ IN: cuda.devices
 
 : cuda-device-properties ( n -- properties )
     [ CUdevprop <struct> ] dip
-    [ cuDeviceGetProperties cuda-error ] 2keep drop ;
+    [ cuDeviceGetProperties cuda-error ] keepd ;
 
 : cuda-devices ( -- assoc )
     enumerate-cuda-devices [ dup cuda-device-properties ] { } map>assoc ;