From 6bbaf250ea9d96fb80b437727572eae4abd7828c Mon Sep 17 00:00:00 2001
From: Vadim Belman <vrurg@lflat.org>
Date: Wed, 20 Jul 2022 21:41:16 -0400
Subject: [PATCH] Add optional positional parameter to archetypes method

It is needed to support some improvements in Raku land.
---
 src/how/NQPClassHOW.nqp          | 2 +-
 src/how/NQPConcreteRoleHOW.nqp   | 2 +-
 src/how/NQPCurriedRoleHOW.nqp    | 2 +-
 src/how/NQPModuleHOW.nqp         | 2 +-
 src/how/NQPNativeHOW.nqp         | 2 +-
 src/how/NQPParametricRoleHOW.nqp | 2 +-
 6 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/how/NQPClassHOW.nqp b/src/how/NQPClassHOW.nqp
index 5d062d58e..b6bbf6434 100644
--- a/src/how/NQPClassHOW.nqp
+++ b/src/how/NQPClassHOW.nqp
@@ -67,7 +67,7 @@ knowhow NQPClassHOW {
     has @!BUILDPLAN;
 
     my $archetypes := Archetypes.new( :nominal(1), :inheritable(1) );
-    method archetypes() {
+    method archetypes($obj?) {
         $archetypes
     }
 
diff --git a/src/how/NQPConcreteRoleHOW.nqp b/src/how/NQPConcreteRoleHOW.nqp
index adb90b8cd..329257e2e 100644
--- a/src/how/NQPConcreteRoleHOW.nqp
+++ b/src/how/NQPConcreteRoleHOW.nqp
@@ -29,7 +29,7 @@ knowhow NQPConcreteRoleHOW {
     has $!composed;
 
     my $archetypes := Archetypes.new( :nominal(1), :composable(1) );
-    method archetypes() {
+    method archetypes($obj?) {
         $archetypes
     }
 
diff --git a/src/how/NQPCurriedRoleHOW.nqp b/src/how/NQPCurriedRoleHOW.nqp
index 622cb55f2..4b9dcf63f 100644
--- a/src/how/NQPCurriedRoleHOW.nqp
+++ b/src/how/NQPCurriedRoleHOW.nqp
@@ -3,7 +3,7 @@ knowhow NQPCurriedRoleHOW {
     has @!pos_args;
 
     my $archetypes := Archetypes.new( :nominal(1), :composable(1), :parametric(1) );
-    method archetypes() {
+    method archetypes($obj?) {
         $archetypes
     }
 
diff --git a/src/how/NQPModuleHOW.nqp b/src/how/NQPModuleHOW.nqp
index e77dc2bb5..ee3e48e1c 100644
--- a/src/how/NQPModuleHOW.nqp
+++ b/src/how/NQPModuleHOW.nqp
@@ -3,7 +3,7 @@ knowhow NQPModuleHOW {
     has $!composed;
 
     my $archetypes := Archetypes.new( );
-    method archetypes() {
+    method archetypes($obj?) {
         $archetypes
     }
 
diff --git a/src/how/NQPNativeHOW.nqp b/src/how/NQPNativeHOW.nqp
index 0de619049..220fe4807 100644
--- a/src/how/NQPNativeHOW.nqp
+++ b/src/how/NQPNativeHOW.nqp
@@ -5,7 +5,7 @@ knowhow NQPNativeHOW {
     has $!composed;
 
     my $archetypes := Archetypes.new( :nominal(1) );
-    method archetypes() {
+    method archetypes($obj?) {
         $archetypes
     }
 
diff --git a/src/how/NQPParametricRoleHOW.nqp b/src/how/NQPParametricRoleHOW.nqp
index 08b5e1a0d..b8d0a84d2 100644
--- a/src/how/NQPParametricRoleHOW.nqp
+++ b/src/how/NQPParametricRoleHOW.nqp
@@ -32,7 +32,7 @@ knowhow NQPParametricRoleHOW {
     has $!specialize_lock;
 
     my $archetypes := Archetypes.new( :nominal(1), :composable(1), :parametric(1) );
-    method archetypes() {
+    method archetypes($obj?) {
         $archetypes
     }