Get my %h declarations init'ing a Hash correctly.

src/Perl6/Actions.pm

@@ -692,7 +692,9 @@ sub declare_variable($/, $past, $sigil, $twigil, $desigilname, $trait_list) {
         # Not an attribute - need to emit delcaration here.
         # First, create a container and give it a 'rw' property
         # Create the container, give it a 'rw' property
-        my $cont := PAST::Op.new( sigiltype($sigil), :pirop('new Ps') );
+        my $cont := $sigil eq '%' ??
+            PAST::Op.new( :name('&CREATE_HASH_LOW_LEVEL'), :pasttype('call') ) !!
+            PAST::Op.new( sigiltype($sigil), :pirop('new Ps') );
         my $true := PAST::Var.new( :name('true'), :scope('register') );
         my $vivipast := PAST::Op.new( $cont, 'rw', $true, :pirop('setprop'));
 

src/core/EnumMap.pm

@@ -19,4 +19,6 @@ role EnumMap {
           done:
         }
     }
+
+
 }

src/core/Hash.pm

@@ -1,5 +1,6 @@
 role Hash is EnumMap {
     method postcircumfix:<{ }>($key) {
+        $key ~= $key;
         Q:PIR {
             .local pmc self
             self = find_lex 'self'

src/glue/types.pir

@@ -57,7 +57,10 @@ subtyping relations, etc).
 
 
 .sub '&CREATE_HASH_LOW_LEVEL'
-    .param pmc storage
+    .param pmc storage :optional
+    unless null storage goto have_storage
+    storage = root_new ['parrot';'Hash']
+  have_storage:
     $P0 = get_hll_global 'Hash'
     $P0 = $P0.'!select'()
     $P0 = $P0.'!pun'()