Move Parcel.hash out of PIR and into core setting.

anindya5678 · May 28, 2011 · 64178b4 · 64178b4
1 parent 2ad1b52
commit 64178b4
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 10 deletions.
diff --git a/src/builtins/Parcel.pir b/src/builtins/Parcel.pir
@@ -48,16 +48,6 @@ A Parcel in item context becomes a Seq.
 .end
 
 
-=item hash()
-
-=cut
-
-.sub 'hash' :method
-    x_enter_sublog
-    .tailcall '&hash'(self)
-.end
-
-
 =item iterator()
 
 Construct an iterator for the Parcel.

diff --git a/src/core/Parcel.pm b/src/core/Parcel.pm
@@ -1,4 +1,7 @@
 augment class Parcel does Positional {
+    # methods defined in src/builtins/Parcel.pir:
+    #    .item .iterator .perl .Bool .Capture !STORE
+
     method Str() { self.flat.Str }
 
     method elems() { self.flat.elems }
@@ -22,4 +25,8 @@ augment class Parcel does Positional {
             ?? !$x.defined || ($x ~~ Positional && $x == 0)
             !! self.Seq.ACCEPTS($x)
     }
+
+    multi method hash() {
+        my %h = self;
+    }
 }