Permalink
Browse files

fix import + arglist

  • Loading branch information...
1 parent 3c393c6 commit 5b60299c37001a9a50d93877cbc23b97d6ce5420 @moritz moritz committed May 7, 2012
Showing with 5 additions and 1 deletion.
  1. +5 −1 src/Perl6/Grammar.pm
View
@@ -716,7 +716,11 @@ grammar Perl6::Grammar is HLL::Grammar {
try { $module := $*W.find_symbol($longname.components()); $found := 1; }
if $found {
# todo: fix arglist
- do_import($module.WHO, $<arglist>, ~$<module_name><longname>);
+ my $arglist;
+ if $<arglist> {
+ $arglist := $*W.compile_time_evaluate($/, $<arglist>[0]<EXPR>);
+ }
+ do_import($module.WHO, ~$<module_name><longname>, $arglist);
}
else {
$/.CURSOR.panic("Could not find module " ~ ~$<module_name> ~

0 comments on commit 5b60299

Please sign in to comment.