Restrict <unum> matching to moar.

NQP-J doesn't have (proper) getuniprop_str or unipropcode yet, so we work around that.
rakudo · Nov 25, 2015 · 6ca14ad · 6ca14ad
1 parent 6313051
commit 6ca14ad
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -6591,8 +6591,8 @@ Compilation unit '$file' contained the following violations:
         make $qast;
     }
 
-    my $nuprop := nqp::unipropcode("NumericValueNumerator");
-    my $deprop := nqp::unipropcode("NumericValueDenominator");
+    my $nuprop := nqp::existskey(nqp::backendconfig(), 'moarlib') ?? nqp::unipropcode("NumericValueNumerator") !! '';
+    my $deprop := nqp::existskey(nqp::backendconfig(), 'moarlib') ?? nqp::unipropcode("NumericValueDenominator") !! '';
 
     method numish($/) {
         if $<integer> {

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