Simplify code-gen of slurpy things.

rakudo · Apr 7, 2014 · ebd3729 · ebd3729
1 parent caa39a8
commit ebd3729
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -5992,7 +5992,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
             if nqp::objprimspec($nomtype) {
                 $var.returns($nomtype);
             }
-            else {
+            elsif !$saw_slurpy {
                 # Must hll-ize before we go on.
                 $var.push(QAST::Op.new(
                     :op('bind'),