allow unival terms, because why not?

rakudo · Nov 25, 2015 · 8ef5a59 · 8ef5a59
1 parent 4d8a904
commit 8ef5a59
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -6591,6 +6591,9 @@ Compilation unit '$file' contained the following violations:
         make $qast;
     }
 
+    my $nuprop := nqp::unipropcode("NumericValueNumerator");
+    my $deprop := nqp::unipropcode("NumericValueDenominator");
+
     method numish($/) {
         if $<integer> {
             make $*W.add_numeric_constant($/, 'Int', $<integer>.ast);
@@ -6599,6 +6602,14 @@ Compilation unit '$file' contained the following violations:
         elsif $<rad_number>     { make $<rad_number>.ast; }
         elsif $<rat_number>     { make $<rat_number>.ast; }
         elsif $<complex_number> { make $<complex_number>.ast; }
+        elsif $<unum> {
+            my $code := nqp::ord($/.Str);
+            my int $nu := +nqp::getuniprop_str($code, $nuprop);
+            my int $de := +nqp::getuniprop_str($code, $deprop);
+            !$de || $de == '1'
+                ?? make $*W.add_numeric_constant($/, 'Int', +$nu)
+                !! make $*W.add_constant('Rat', 'type_new', $nu, $de, :nocache(1));
+        }
         else {
             make $*W.add_numeric_constant($/, 'Num', +$/);
         }

diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -3282,6 +3282,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         | 'Inf' >>
         | '+Inf' >>
         | '-Inf' >>
+        | <unum=:No+:Nl>
         ]
     }