Remove Version.new-from-git-describe

- This should've been a Rakudo::Internal method instead
- This is no longer needed, as Version.new was made to work
    without using regexes

src/core/Compiler.pm

@@ -19,7 +19,7 @@ class Compiler does Systemic {
         $!id = nqp::p6box_s(nqp::ifnull(nqp::atkey($compiler,'id'),$id));
         # looks like: 2018.01-50-g8afd791c1
         $!version = $version
-            // Version.new-from-git-describe(nqp::atkey($compiler, 'version'));
+            // Version.new(nqp::atkey($compiler, 'version'));
         $!release =
           $release // nqp::p6box_s(nqp::atkey($compiler, 'release-number'));
         $!build-date =

src/core/Version.pm

@@ -96,30 +96,6 @@ class Version {
                 ($vplus //= nqp::create(Version)!SET-SELF(nqp::list,1,"")),
                 self.new))))
     }
-    # for use by the setting where we may not use regexes to parse
-    method new-from-git-describe(Version: str $v) {
-        my $strings  := nqp::split('.', $v);
-        my \minor = nqp::pop($strings);
-        my \extra = nqp::split('-', minor);
-        nqp::push($strings, nqp::shift(extra)) while nqp::elems(extra);
-            my int $elems = nqp::elems($strings);
-            my $parts    := nqp::setelems(nqp::list, $elems);
-
-            my int $i = -1;
-            while nqp::islt_i(++$i, $elems) {
-                my $s = nqp::atpos($strings, $i);
-                if nqp::iseq_s($s, '0') {
-                    nqp::bindpos($parts, $i, 0);
-                }
-                else {
-                    nqp::bindpos($parts, $i, $s);
-                    my $num := nqp::radix(10, $s, 0, 0);
-                    nqp::bindpos($parts, $i, nqp::atpos($num, 0) ?? nqp::atpos($num, 0) !! $s);
-                }
-            }
-        my str $string = nqp::join(".", $strings);
-        nqp::create(self)!SET-SELF($parts, 0, $string);
-    }
 
     multi method Str(Version:D:)  { $!string }
     multi method gist(Version:D:) { nqp::concat("v",$!string) }