diff nworker_c.rhope @ 112:fd23ab2c1a73

Small changes to make profile data a little cleaner
author Mike Pavone <pavone@retrodev.com>
date Mon, 11 Oct 2010 21:53:27 -0400
parents 2f6f0867fd68
children 04148770c229
line wrap: on
line diff
--- a/nworker_c.rhope	Mon Oct 11 20:04:48 2010 -0400
+++ b/nworker_c.rhope	Mon Oct 11 21:53:27 2010 -0400
@@ -853,7 +853,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]
@@ -919,7 +919,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]
@@ -927,7 +927,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]
@@ -940,7 +940,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