coerce arglist to import to an RPA

now import Type :DEFAULT; works the same as a bare import Type
rakudo · May 8, 2012 · 4b16cae · 4b16cae
1 parent c95b593
commit 4b16cae
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/docs/ChangeLog b/docs/ChangeLog
@@ -19,6 +19,7 @@ New in 2012.05
 + updated calling conventions for traits
 + implemented fff flip-flop operator; improvements to ff form also
 + removed current directory from default library search path
++ 'import' works
 
 New in 2012.04.1
 + autvivification for arrays and hashes

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -721,6 +721,8 @@ grammar Perl6::Grammar is HLL::Grammar {
                 my $arglist;
                 if $<arglist> {
                     $arglist := $*W.compile_time_evaluate($/, $<arglist>[0]<EXPR>.ast);
+                    $arglist := nqp::getattr($arglist.list.eager,
+                            $*W.find_symbol(['List']), '$!items');
                 }
                 do_import($module.WHO, ~$<module_name><longname>, $arglist);
             }