Skip to content
Permalink
Browse files

Make require import any kind of symbols correctly

Prevent extra containerization of type objects and constants.

#2983
  • Loading branch information...
vrurg committed Jun 20, 2019
1 parent 8871219 commit 9dca33b620f379ab87c33d8c3947bfd03891e27b
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 9dca33b

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