Privatize Quanthash hashification

rakudo · Jun 10, 2018 · 09a9bbc · 09a9bbc
1 parent 0ac5c4f
commit 09a9bbc
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 8 deletions.
diff --git a/src/core/Baggy.pm6 b/src/core/Baggy.pm6
@@ -262,7 +262,7 @@ my role Baggy does QuantHash {
         nqp::p6bool($!elems && nqp::elems($!elems))
     }
 
-    method HASHIFY(\type) {
+    method !HASHIFY(\type) {
         nqp::stmts(
           (my $hash := Hash.^parameterize(type,Any).new),
           (my $descriptor := nqp::getattr($hash,Hash,'$!descriptor')),
@@ -291,8 +291,8 @@ my role Baggy does QuantHash {
           $hash
         )
     }
-    multi method hash(Baggy:D: --> Hash:D) { self.HASHIFY(Any) }
-    multi method Hash(Baggy:D: --> Hash:D) { self.HASHIFY(UInt) }
+    multi method hash(Baggy:D: --> Hash:D) { self!HASHIFY(Any) }
+    multi method Hash(Baggy:D: --> Hash:D) { self!HASHIFY(UInt) }
 
     method default(Baggy:D: --> 0) { }
 

diff --git a/src/core/Mixy.pm6 b/src/core/Mixy.pm6
@@ -1,7 +1,7 @@
 my role Mixy does Baggy  {
 
-    multi method hash(Mixy:D: --> Hash:D) { self.HASHIFY(Any) }
-    multi method Hash(Mixy:D: --> Hash:D) { self.HASHIFY(Real) }
+    multi method hash(Mixy:D: --> Hash:D) { self!HASHIFY(Any) }
+    multi method Hash(Mixy:D: --> Hash:D) { self!HASHIFY(Real) }
 
     multi method kxxv(Mixy:D:) {
         Failure.new(".kxxv is not supported on a {self.^name}")

diff --git a/src/core/Setty.pm6 b/src/core/Setty.pm6
@@ -74,7 +74,7 @@ my role Setty does QuantHash {
         nqp::p6bool($!elems && nqp::elems($!elems))
     }
 
-    method HASHIFY(\type) {
+    method !HASHIFY(\type) {
         nqp::stmts(
           (my $hash := Hash.^parameterize(type,Any).new),
           (my $descriptor := nqp::getattr($hash,Hash,'$!descriptor')),
@@ -100,8 +100,8 @@ my role Setty does QuantHash {
           $hash
         )
     }
-    multi method hash(Setty:D: --> Hash:D) { self.HASHIFY(Any) }
-    multi method Hash(Setty:D: --> Hash:D) { self.HASHIFY(Bool) }
+    multi method hash(Setty:D: --> Hash:D) { self!HASHIFY(Any) }
+    multi method Hash(Setty:D: --> Hash:D) { self!HASHIFY(Bool) }
 
     multi method ACCEPTS(Setty:U: \other) { other.^does(self) }
     multi method ACCEPTS(Setty:D: Setty:D \other) {