Make basic argument checking on DateTime.later a lot faster

Improves performance of Date.later with about 30%, mostly because
of a lot less allocations.

src/core/Date.pm6

@@ -104,12 +104,21 @@ my class Date does Dateish {
     }
 
     method later(:$earlier, *%unit) {
-        my @pairs = %unit.pairs;
-        die "More than one time unit supplied" if @pairs > 1;
-        die "No time unit supplied"        unless @pairs;
 
-        my $unit   = self!VALID-UNIT(@pairs.AT-POS(0).key);
-        my $amount = @pairs.AT-POS(0).value.Int;
+        # basic sanity check
+        nqp::if(
+          nqp::eqaddr(
+            (my \later := (my \iterator := %unit.iterator).pull-one),
+            IterationEnd
+          ),
+          (die "No time unit supplied"),
+          nqp::unless(
+            nqp::eqaddr(iterator.pull-one,IterationEnd),
+            (die "More than one time unit supplied")
+          )
+        );
+        my $unit  := later.key;
+        my $amount = later.value;
         $amount = -$amount if $earlier;
 
         if nqp::atkey($valid-units,$unit) -> $multiplier {