Skip to content
Permalink
Browse files

Mark parameter symbols with their type

  • Loading branch information...
jnthn committed Nov 1, 2018
1 parent b0e7e37 commit 5bbaabb9c6118104f36b9b6f5d409a1a3f33d510
Showing with 3 additions and 2 deletions.
  1. +3 −2 src/Perl6/World.nqp
@@ -2225,10 +2225,11 @@ class Perl6::World is HLL::World {
if $varname && ($flags +& $SIG_ELEM_IS_RW || $flags +& $SIG_ELEM_IS_COPY) {
my %sym := $lexpad.symbol($varname);
if +%sym && !nqp::existskey(%sym, 'descriptor') {
my $desc := self.create_container_descriptor($_<nominal_type>, $varname);
my $type := $_<nominal_type>;
my $desc := self.create_container_descriptor($type, $varname);
$_<container_descriptor> := $desc;
nqp::bindattr($param_obj, $param_type, '$!container_descriptor', $desc);
$lexpad.symbol($varname, :descriptor($desc));
$lexpad.symbol($varname, :descriptor($desc), :$type);
}
}

0 comments on commit 5bbaabb

Please sign in to comment.
You can’t perform that action at this time.