[make regression tests create all output in results directory
John Meacham <john@repetae.net>**20080304092448] hunk ./regress/regress.prl 23
-my $opt_ho;
hunk ./regress/regress.prl 33
-    ho => \$opt_ho,
hunk ./regress/regress.prl 80
+
+my $ho_dir = $opt_clean ? "$rd/ho" : "$results_dir/ho";
+$ho_dir .= "_l" if $opt_l;
+mkdir $ho_dir;
+
hunk ./regress/regress.prl 129
-    if(-f "Main.hs") {
-        my $dh = $opt_ho ? "" : "$cwd/*.ho";
-        system "rm -f -- $dh $cwd/*_code.hs $cwd/*_code.c";
-
-    }
hunk ./regress/regress.prl 157
-            system "rm -f -- $cwd/$ln.ho" unless $opt_ho;
-            system "rm -f -- $cwd/${ln}_code.hs";
-            system "rm -f -- $cwd/${ln}_code.c";
hunk ./regress/regress.prl 160
-            my @cmd = (@jhc, "-v", @libs , @fast, "-o", "$fbase", @flags, @opts, "$cwd/$fn");
+            my @cmd = (@jhc, "-v", '--ho-dir', $ho_dir, @libs , @fast, "-o", "$rd/$name", @flags, @opts, "$cwd/$fn");
hunk ./regress/regress.prl 177
-            my $run_cmd = "$fbase " . join(" ",@args) . " > $result->{run_stdout}" . ($stdin || "");
+            my $run_cmd = "$rd/$name " . join(" ",@args) . " > $result->{run_stdout}" . ($stdin || "");