Don't lose namedness of arguments when inlining.

Raku · Jul 31, 2012 · 14a8815 · 14a8815
1 parent 0fdbf28
commit 14a8815
Showing 1 changed file with 16 additions and 3 deletions.
diff --git a/src/QAST/InlinePlaceholder.nqp b/src/QAST/InlinePlaceholder.nqp
@@ -8,8 +8,21 @@ class QAST::InlinePlaceholder is QAST::Node {
     }
 
     method substitute_inline_placeholders(@fillers) {
-        $!position < +@fillers
-            ?? @fillers[$!position]
-            !! nqp::die("Inline placeholder index out of range")
+        if $!position < +@fillers {
+            my $result := @fillers[$!position];
+            if self.named || self.flat {
+                $result := $result.shallow_clone();
+                if self.named -> $name {
+                    $result.named($name);
+                }
+                if self.flat {
+                    $result.flat(1);
+                }
+            }
+            $result
+        }
+        else {
+            nqp::die("Inline placeholder index out of range")
+        }
     }
 }