[svn:parrot] r34501 - branches/rvar/languages/perl6/src/parser

[pmichaud]

Author: pmichaud
Date: Sun Dec 28 09:01:26 2008
New Revision: 34501

Modified:
   branches/rvar/languages/perl6/src/parser/actions.pm

Log:
[rakudo]:  Put a type property on a container only if there is one.


Modified: branches/rvar/languages/perl6/src/parser/actions.pm
==============================================================================
--- branches/rvar/languages/perl6/src/parser/actions.pm (original)
+++ branches/rvar/languages/perl6/src/parser/actions.pm Sun Dec 28 09:01:26 2008
@@ -2015,7 +2015,10 @@
         my $symbol := $?BLOCK.symbol( $past.name() );
         $symbol<scope> := $scope;
         $past.viviself( $symbol<viviself> );
-        $past := PAST::Op.new( :pirop('setprop'), $past, 'type', 
$symbol<type>[0] );
+        if $symbol<type> {
+            $past := PAST::Op.new( :pirop('setprop'), 
+                                   $past, 'type', $symbol<type>[0] );
+        }
     }
     make $past;
 }