Merge pull request #617 from MadcapJake/nom

Improve X::Syntax::Adverb error message
rakudo · Dec 4, 2015 · 47d2daf · 47d2daf
2 parents 8d6ac86 + c079f89
commit 47d2daf
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -5824,7 +5824,7 @@ Compilation unit '$file' contained the following violations:
                         $/.CURSOR.typed_panic('X::Syntax::Adverb', what => $target.name);
                     }
                     else {
-                        $/.CURSOR.typed_panic('X::Syntax::Adverb')
+                        $/.CURSOR.typed_panic('X::Syntax::Adverb', what => ~$/[0]);
                     }
                 }
                 my $cpast := $<colonpair>.ast;

diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -1400,7 +1400,7 @@ my class X::Syntax::CannotMeta does X::Syntax {
 my class X::Syntax::Adverb does X::Syntax {
     has $.what;
 
-    method message() { "You can't adverb " ~ ($.what // "that")  }
+    method message() { "You can't adverb " ~ $.what }
 }
 
 my class X::Syntax::Regex::Adverb does X::Syntax {