allow negative integers as parameters

rakudo · Sep 19, 2015 · ea2d21c · ea2d21c
1 parent 6252fc4
commit ea2d21c
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -4367,10 +4367,14 @@ Compilation unit '$file' contained the following violations:
                 );
             }
             my $ast := $<value>.ast;
-            unless $ast.has_compile_time_value {
-                $/.CURSOR.panic('Cannot use a value type constraints whose value is unknown at compile time');
+            my $val;
+            if nqp::can($ast,'has_compile_time_value') && $ast.has_compile_time_value {
+                $val := $ast.compile_time_value;
+            }
+            else {  # for negatives
+                my $i  := $*W.add_numeric_constant(NQPMu, 'Int', +$<value>.Str);
+                $val := $i.compile_time_value;
             }
-            my $val := $ast.compile_time_value;
             %*PARAM_INFO<nominal_type> := $val.WHAT;
             unless %*PARAM_INFO<post_constraints> {
                 %*PARAM_INFO<post_constraints> := [];

diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -2839,6 +2839,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         :my $*IN_DECL := '';
         [
         | <value>
+        | $<value>=['-'\d+]
         | <typename>
         | where <.ws> <EXPR('i=')>
         ]