Author: pmichaud
Date: Mon Nov 10 10:02:19 2008
New Revision: 32497
Modified:
trunk/languages/perl6/src/builtins/assign.pir
Log:
[rakudo]: Add infix:<**=> initialization (moritz++)
Modified: trunk/languages/perl6/src/builtins/assign.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/assign.pir (original)
+++ trunk/languages/perl6/src/builtins/assign.pir Mon Nov 10 10:02:19 2008
@@ -141,6 +141,7 @@
.sub 'infix:**='
.param pmc a
.param pmc b
+ '!INIT_IF_PROTO'(a, 1)
pow $P0, a, b
'infix:='(a, $P0)
.return (a)
