cuda.memory: use binary-object.

diff --git a/extra/cuda/memory/memory.factor b/extra/cuda/memory/memory.factor
index 2369851292af4dfb8a6492cc7cba06d21775740e..45bcf29e4a762e87506c241d7f7d2957f11bc6c7 100644 (file)
--- a/extra/cuda/memory/memory.factor
+++ b/extra/cuda/memory/memory.factor
@@ -44,7 +44,7 @@ DESTRUCTOR: cuda-free
     cuMemcpyDtoH cuda-error ; inline
 
 : host>device ( data -- ptr )
-    [ >c-ptr ] [ byte-length ] bi
+    binary-object
     [ nip cuda-malloc dup ] [ memcpy-host>device ] 2bi ; inline
 
 : device>host ( ptr len -- byte-array )