re-prioritize decisions in the default exception handler

rakudo · Dec 19, 2011 · 1eadbbf · 1eadbbf
1 parent 7ed1840
commit 1eadbbf
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -65,14 +65,14 @@ do {
             my $e := EXCEPTION($ex);
             my Mu $err := pir::getstderr__P();
 
-            if is_runtime($ex.backtrace) {
-                $err.print: $e;
+            if X::Base.ACCEPTS($e) {
+                $err.print: $e.gist;
                 $err.print: "\n";
-                $err.print: Backtrace.new($e);
             }
-            elsif X::Base.ACCEPTS($e) {
-                $err.print: $e.gist;
+            elsif is_runtime($ex.backtrace) {
+                $err.print: $e;
                 $err.print: "\n";
+                $err.print: Backtrace.new($e);
             }
             else {
                 $err.print: "===SORRY!===\n";