# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1277003621 14400
# Node ID 6a1a7d5cc2d9b694d685ddff3c65b1fb5d497ffd
# Parent  f7bcf3db1342bc340095ea71bf9b8e81ef409cf4
Add some error checking, cleanup output and add a bad test file

diff -r f7bcf3db1342 -r 6a1a7d5cc2d9 nworker.rhope
--- a/nworker.rhope	Fri Jun 18 17:00:50 2010 -0400
+++ b/nworker.rhope	Sat Jun 19 23:13:41 2010 -0400
@@ -376,6 +376,7 @@
 			If[[[node]Type >>] = ["output"]]
 			{
 				out <- nodelist
+
 			}{
 				[node]Has Input Types?
 				{
diff -r f7bcf3db1342 -r 6a1a7d5cc2d9 parser_old.rhope
--- a/parser_old.rhope	Fri Jun 18 17:00:50 2010 -0400
+++ b/parser_old.rhope	Sat Jun 19 23:13:41 2010 -0400
@@ -1308,6 +1308,7 @@
 
 Register Workers Compile[prog, worker, name:out]
 {
+	Print[["Registering "]Append[name]]
 	If[[ Type Of[[worker]Trees >>] ] = ["Foreign Lib"]]
 	{ convention <- Val[[[worker]Trees >>]Language >>] }
 	{ convention <- "rhope" }
@@ -1327,6 +1328,7 @@
 			]Library <<[ [[worker]Trees >>]Name >> ]
 			
 		}{
+			Print[["Transforming "]Append[name]]
 			trees, nworker, refs <- Add List to Worker[[worker]Trees >>, [NWorker["rhope"]]Uses[[worker]Uses Stores >>], prog, worker, Dictionary[]]
 			final nworker <- Fold[[["Add Wires Helper"]Set Input[3, worker]]Set Input[4, refs], nworker, trees]
 		}
diff -r f7bcf3db1342 -r 6a1a7d5cc2d9 testbad.fc
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/testbad.fc	Sat Jun 19 23:13:41 2010 -0400
@@ -0,0 +1,7 @@
+B = R(A, L(B, R(C,D)))
+C = R(B, R(C, D))
+X = L(X, L(A, L(B, R(C,D))))
+A = L(X, L(A, L(B, R(C,D))))
+E = L(E, L(C, D))
+D = R(E, L(C, D))
+