Mercurial > repos > rhope
diff nworker_c.rhope @ 115:04148770c229
Merge
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 13 Oct 2010 01:18:53 +0000 |
parents | 25a205094f9b fd23ab2c1a73 |
children | 4d089503fb51 |
line wrap: on
line diff
--- a/nworker_c.rhope Wed Oct 13 01:15:04 2010 +0000 +++ b/nworker_c.rhope Wed Oct 13 01:18:53 2010 +0000 @@ -834,7 +834,7 @@ after save <- Fold[Save Result[?, ?, node index], with call, Range[0, save outs]] } -Compile Node@NWorker[worker,program,func,nodes,current:out,out worker] +Compile Node[worker,program,func,nodes,current:out,out worker] { node index <- [nodes]Index[current] node <- [[worker]Nodes >>]Index[node index] @@ -900,7 +900,7 @@ } } -Save Node Conditions@NWorker[worker,node index:out] +Save Node Conditions[worker,node index:out] { node <- [[worker]Nodes >>]Index[node index] conditions <- [worker]Collect Conditions[node] @@ -908,7 +908,7 @@ } -Save Group Conditions@NWorker[worker, groups,current:out] +Save Group Conditions[worker, groups,current:out] { nodes <- [groups]Index[current] nworker <- Fold[Save Node Conditions[?], worker, nodes] @@ -921,7 +921,7 @@ } } -Compile Group@NWorker[worker,program,func,groups,current:out,out worker] +Compile Group[worker,program,func,groups,current:out,out worker] { nodes <- [groups]Index[current] [nodes]First