Only include position pointer if we have $.pre.

Avoids spitting out compile-time errors with a "----->" followed by nothing.
rakudo · Apr 8, 2015 · f1cf715 · f1cf715
1 parent 16ca41b
commit f1cf715
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -370,8 +370,8 @@ my role X::Comp is Exception {
                 !! ("", "", "", "");
             my $eject = $is-win ?? "<HERE>" !! "\x[23CF]";
             my $r = $sorry ?? self.sorry_heading() !! "";
-            $r ~= "$.message\nat $.filename():$.line\n------> ";
-            $r ~= "$green$.pre$yellow$eject$red$.post$clear" if defined $.pre;
+            $r ~= "$.message\nat $.filename():$.line";
+            $r ~= "\n------> $green$.pre$yellow$eject$red$.post$clear" if defined $.pre;
             if $expect && @.highexpect {
                 $r ~= "\n    expecting any of:";
                 for @.highexpect {