Skip to content

Instantly share code, notes, and snippets.

Created June 26, 2011 18:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/1047814 to your computer and use it in GitHub Desktop.
Save anonymous/1047814 to your computer and use it in GitHub Desktop.
diff --git a/src/Perl6/Metamodel/BOOTSTRAP.pm b/src/Perl6/Metamodel/BOOTSTRAP.pm
index 63816eb..50af38b 100644
--- a/src/Perl6/Metamodel/BOOTSTRAP.pm
+++ b/src/Perl6/Metamodel/BOOTSTRAP.pm
@@ -413,6 +413,12 @@ Num.HOW.add_attribute(Num, BOOTSTRAPATTR.new(:name<$!value>, :type(num), :box_ta
# Stash these common types for box ops.
pir::perl6_set_types_ins__vPPP(Int, Num, Str);
+# class MyParcel is Cool {
+# ...
+# }
+my stub MyParcel metaclass Perl6::Metamodel::ClassHOW { ... };
+MyParcel.HOW.add_parent(MyParcel, Cool);
+
# class Iterable is Cool {
# ...
# }
@@ -576,6 +582,7 @@ my module EXPORT {
$?PACKAGE.WHO<Real> := Real;
$?PACKAGE.WHO<Int> := Int;
$?PACKAGE.WHO<Num> := Num;
+ $?PACKAGE.WHO<MyParcel> := MyParcel;
$?PACKAGE.WHO<Iterable> := Iterable;
$?PACKAGE.WHO<Iterator> := Iterator;
$?PACKAGE.WHO<ListIter> := ListIter;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment