Skip to content
Permalink
Browse files

Merge pull request #3005 from vrurg/rakudo_2983

Make require import any kind of symbols correctly
  • Loading branch information...
vrurg committed Jun 20, 2019
2 parents 8871219 + 9dca33b commit 63b9e1fe378c3a2009fec30f2575ece1a4696936
Showing with 5 additions and 3 deletions.
  1. +5 −3 src/Perl6/Actions.nqp
@@ -2238,9 +2238,11 @@ class Perl6::Actions is HLL::Actions does STDActions {
my str $symbol := nqp::unbox_s($arg.Str());
$*W.throw($/, ['X', 'Redeclaration'], :$symbol)
if $lexpad.symbol($symbol);
declare_variable($/, $past,
nqp::substr($symbol, 0, 1), '', nqp::substr($symbol, 1),
[]);
$*W.install_lexical_symbol(
$lexpad,
$symbol,
$*W.find_symbol(['Metamodel', 'GenericHOW']).new_type(:name($symbol))
);
$require_past.push($*W.add_string_constant($symbol));
}
}

0 comments on commit 63b9e1f

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