Fork -> Spawn

dpvanbalen · Oct 25, 2023 · 8995903 · 8995903
1 parent 4608083
commit 8995903
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/accelerate-llvm-native/src/Data/Array/Accelerate/LLVM/Native/Execute.hs b/accelerate-llvm-native/src/Data/Array/Accelerate/LLVM/Native/Execute.hs
@@ -100,12 +100,12 @@ executeSchedule !workers !threadIdx !env = \case
     executeSchedule workers threadIdx env next
   Awhile io step input next -> do
     executeAwhile workers threadIdx env io step (prjVars input env) next
-  Fork a (Effect (SignalAwait signals) b) -> do
-    scheduleAfter workers (map (`prj` env) signals) $ Job $ \threadIdx' -> executeSchedule workers threadIdx' env b
-    executeSchedule workers threadIdx env a
-  Fork a b -> do
-    schedule workers $ Job $ \threadIdx' -> executeSchedule workers threadIdx' env b
-    executeSchedule workers threadIdx env a
+  Spawn (Effect (SignalAwait signals) a) b -> do
+    scheduleAfter workers (map (`prj` env) signals) $ Job $ \threadIdx' -> executeSchedule workers threadIdx' env a
+    executeSchedule workers threadIdx env b
+  Spawn a b -> do
+    schedule workers $ Job $ \threadIdx' -> executeSchedule workers threadIdx' env a
+    executeSchedule workers threadIdx env b
 
 executeBinding :: Workers -> NativeEnv env -> BasesR t -> Binding env t -> IO (Values t)
 executeBinding workers !env tp = \case