error and backtrace should go to standard error by default

ruz · Aug 13, 2011 · e913287 · e913287
1 parent bdab779
commit e913287
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/HLL/Compiler.pm b/src/HLL/Compiler.pm
@@ -330,8 +330,10 @@ class HLL::Compiler {
         }
         if ($has_error) {
             if %adverbs<ll-exception> || !pir::can(self, 'handle-exception') {
-                nqp::say($error);
-                nqp::say(pir::join("\n", $error.backtrace_strings));
+                my $err := pir::getstderr__P();
+                $err.print($error);
+                $err.print("\n");
+                $err.print(pir::join("\n", $error.backtrace_strings));
                 pir::exit(1);
             } else {
                 self.handle-exception($error);