Fix thinko in fakesignature action; another little step for putting :…

…(...) := ... style binding back.
rakudo · Sep 12, 2011 · 831b481 · 831b481
1 parent 08ef941
commit 831b481
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1839,7 +1839,11 @@ class Perl6::Actions is HLL::Actions {
     }
 
     method fakesignature($/) {
-        make $*ST.get_slot_past_for_object($*ST.make_signature($<signature>.ast));
+        my $sig := $*ST.create_signature($<signature>.ast);
+        my $past := $*ST.get_slot_past_for_object($sig);
+        $past<has_compile_time_value> := 1;
+        $past<compile_time_value> := $sig;
+        make $past;
     }
 
     method signature($/) {