Support \$a (for is parcel) again.

rakudo · Jun 2, 2011 · 4a8e16a · 4a8e16a
1 parent 80f907c
commit 4a8e16a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Perl6/SymbolTable.pm b/src/Perl6/SymbolTable.pm
@@ -272,6 +272,9 @@ class Perl6::SymbolTable is HLL::Compiler::SerializationContextBuilder {
         if %param_info<is_multi_invocant> {
             $flags := $flags + $SIG_ELEM_MULTI_INVOCANT;
         }
+        if %param_info<is_parcel> {
+            $flags := $flags + $SIG_ELEM_IS_PARCEL;
+        }
         pir::repr_bind_attr_int__vPPsI($parameter, $par_type, '$!flags', $flags);
         $set_attrs.push(self.set_attribute_typed($parameter, $par_type,
             '$!flags', $flags, int));