Correct Array's + operator to be non-destructive. Whoops.

cardinal · Jul 14, 2009 · 611c3c2 · 611c3c2
1 parent 4865c28
commit 611c3c2
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/classes/Array.pir b/src/classes/Array.pir
@@ -1151,8 +1151,10 @@ Operator form for either repetition (when argument is an Integer), or as a short
 .sub 'infix:+' :multi('CardinalArray','CardinalArray')
     .param pmc this
     .param pmc that
+    .local pmc array
 
-    $P0 = this.'concat'(that)
+    $P0 = this.'clone'()
+    $P0 = $P0.'concat'(that)
 
     .return ($P0)
 .end