make --> more like a normal parameter

perl6 · Nov 23, 2012 · a8bc48f · a8bc48f
1 parent d38bbd0
commit a8bc48f
Showing 1 changed file with 1 addition and 8 deletions.
diff --git a/STD.pm6 b/STD.pm6
@@ -2791,14 +2791,7 @@ grammar P6 is STD {
         ]
         <.ws>
         { $*IN_DECL = ''; }
-        [ '-->' <.ws>
-            [
-            || <type_constraint>
-            || <longname> <.panic("Typename " ~ $<longname>[0].Str ~ " must be predeclared")>
-            || <.panic: "No type found after -->">
-            ]
-            <.ws>
-        ]?
+        [ '-->'<.ws> [ <returnspec=parameter><.ws> || <.panic: "No return type or value found after -->"> ] ]?
         {
             $*LEFTSIGIL = '@';
             if $lexsig {