Skip to content

Instantly share code, notes, and snippets.

@FROGGS
Created September 6, 2015 20:53
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save FROGGS/63d711782223d28adf5d to your computer and use it in GitHub Desktop.
Save FROGGS/63d711782223d28adf5d to your computer and use it in GitHub Desktop.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
index bfac49c..7af18bb 100644
--- a/src/Perl6/Actions.nqp
+++ b/src/Perl6/Actions.nqp
@@ -5217,7 +5217,7 @@ Compilation unit '$file' contained the following violations:
hunt_loose_adverbs_in_arglist($EXPR, @args);
}
for @args {
- $_[2].named('value');
+ $_[2] := QAST::Want.new(|$_[2].list);
}
}
}
@@ -5232,8 +5232,14 @@ Compilation unit '$file' contained the following violations:
&& nqp::istype($past[0][0], QAST::Var) && $past[0][0].name eq 'Pair' {
$past := QAST::Stmts.new( :node($/),
QAST::Op.new( :op('call'), :name('&infix:<,>'),
- $past[0], |@args)
- )
+ QAST::Op.new(
+ :op('callmethod'), :name('new'), :returns($*W.find_symbol(['Pair'])),
+ QAST::Var.new( :name('Pair'), :scope('lexical') ),
+ $past[0][1], $past[0][2]
+ ),
+ |@args
+ )
+ );
}
else {
for @args {
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment