Mark CompUnit.WHICH as returning a ValueObjAt

rakudo · May 13, 2020 · 4afaab7 · 4afaab7
1 parent b3d933b
commit 4afaab7
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/core.c/CompUnit.pm6 b/src/core.c/CompUnit.pm6
@@ -22,10 +22,8 @@ class CompUnit {
     has Distribution $.distribution is built(:bind);
     has ValueObjAt $!WHICH;
 
-    multi method WHICH(CompUnit:D:) {
-        nqp::isconcrete($!WHICH)
-          ?? $!WHICH
-          !! self!WHICH
+    multi method WHICH(CompUnit:D: --> ValueObjAt:D) {
+        nqp::isconcrete($!WHICH) ?? $!WHICH !! self!WHICH
     }
     method !WHICH() {
         my $parts :=
@@ -39,6 +37,7 @@ class CompUnit {
              ).Str
           !! $!repo-id
         );
+
         $!WHICH := nqp::box_s(
           nqp::concat(
             nqp::concat(self.^name, '|'),