From 28329a77382cda87f1bba12a8522005766a1054a Mon Sep 17 00:00:00 2001
From: TimToady <larry@wall.org>
Date: Mon, 23 Feb 2015 22:36:31 -0800
Subject: [PATCH] demote bare say message in case of bogus term

---
 STD.pm6 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/STD.pm6 b/STD.pm6
index 8fbf51a..d7ef44e 100644
--- a/STD.pm6
+++ b/STD.pm6
@@ -4104,12 +4104,13 @@ grammar P6 is STD {
                     given +%deftrap{$name} {
                         $¢.worry("Use of non-subscript <...> where postfix is expected; please use whitespace") if $_ and substr(self.orig, $¢.pos, 1) eq '<';
                         when 1 {        # probably misused P5ism
-                            $<identifier>.sorryobs("bare '$name'", ".$name if you meant \$_, or use an explicit invocant or argument");
+                            $<identifier>.worryobs("bare '$name'", ".$name if you meant \$_, or use an explicit invocant or argument");
                         }
                         when 2 {        # probably misused P6ism
-                            $<identifier>.sorry("The '$name' listop may not be called without arguments (please use () or whitespace to clarify)");
+                            $<identifier>.worry("The '$name' listop may not be called without arguments (please use () or whitespace to clarify)");
                         }
                     }
+                    $<identifier>.sorry("No valid term seen where one is required");
                 }
             }
         }