From fb619ec928110317b158451f1673711fe63b4bcd Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 5 May 2010 19:07:39 -0700
Subject: [PATCH] cuda: fix using single integer as grid size

---
 extra/cuda/cuda.factor | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/extra/cuda/cuda.factor b/extra/cuda/cuda.factor
index d4202ba665..1b144632fb 100644
--- a/extra/cuda/cuda.factor
+++ b/extra/cuda/cuda.factor
@@ -61,11 +61,9 @@ PRIVATE>
         [ dim-block>> block-dim function-block-shape* ]
         [ shared-size>> function-shared-size* ]
         [
-            dim-grid>> [
-                launch-function*
-            ] [
-                grid-dim launch-function-grid*
-            ] if-empty
+            dim-grid>>
+            [ grid-dim launch-function-grid* ]
+            [ launch-function* ] if*
         ]
     } 2cleave ;