From 8ae600124c378908b2a82c6d418881f61a2fcfff Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 23 Apr 2010 14:28:17 -0500
Subject: [PATCH] remove init-cuda from a combinator because it's a
 startup-hook now

---
 extra/cuda/cuda.factor | 1 -
 1 file changed, 1 deletion(-)

diff --git a/extra/cuda/cuda.factor b/extra/cuda/cuda.factor
index b2687d1cb6..c4812a285f 100644
--- a/extra/cuda/cuda.factor
+++ b/extra/cuda/cuda.factor
@@ -34,7 +34,6 @@ dim-block dim-grid shared-size stream ;
     '[ cuda-context set _ call ] with-cuda-context ; inline
 
 : with-cuda ( launcher quot -- )
-    init-cuda
     [ H{ } clone cuda-memory-hashtable ] 2dip '[
         _ 
         [ cuda-launcher set ]