diff --git a/lib/NativeCall.pm b/lib/NativeCall.pm index afca54b7057..dc871cfee51 100644 --- a/lib/NativeCall.pm +++ b/lib/NativeCall.pm @@ -477,8 +477,10 @@ sub EXPORT(|) { nqp::bindattr(nqp::decont($/), $/.WHAT, '$!made', $scoped); } } - nqp::bindkey(%*LANG, 'MAIN', %*LANG
.HOW.mixin(%*LANG
, HAS-decl-grammar)); - nqp::bindkey(%*LANG, 'MAIN-actions', %*LANG
.HOW.mixin(%*LANG, HAS-decl-actions)); + my Mu $MAIN-grammar := nqp::atkey(%*LANG, 'MAIN'); + my Mu $MAIN-actions := nqp::atkey(%*LANG, 'MAIN-actions'); + nqp::bindkey(%*LANG, 'MAIN', $MAIN-grammar.HOW.mixin($MAIN-grammar, HAS-decl-grammar)); + nqp::bindkey(%*LANG, 'MAIN-actions', $MAIN-actions.HOW.mixin($MAIN-actions, HAS-decl-actions)); {} }