develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35449 - trunk/languages/perl6/src/builtins

From:
jonathan
Date:
January 12, 2009 10:26
Subject:
[svn:parrot] r35449 - trunk/languages/perl6/src/builtins
Message ID:
20090112182606.C8B41CB9F9@x12.develooper.com
Author: jonathan
Date: Mon Jan 12 10:26:06 2009
New Revision: 35449

Modified:
   trunk/languages/perl6/src/builtins/guts.pir

Log:
[rakudo] Refinement types need to do the Abstraction role.

Modified: trunk/languages/perl6/src/builtins/guts.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/guts.pir	(original)
+++ trunk/languages/perl6/src/builtins/guts.pir	Mon Jan 12 10:26:06 2009
@@ -203,6 +203,10 @@
     .const 'Sub' $P0 = "!SUBTYPE_ACCEPTS"
     subset.'add_method'('ACCEPTS', $P0)
 
+    # It's an abstraction.
+    $P0 = get_hll_global 'Abstraction'
+    subset.'add_role'($P0)
+
     # Instantiate it - we'll only ever create this one instance.
     subset = subset.'new'()
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About