diff src/pt-arg-list.cc @ 4974:ff29117ce225

[project @ 2004-09-08 17:23:22 by jwe]
author jwe
date Wed, 08 Sep 2004 17:23:23 +0000
parents 7a80bb43ea63
children 273205761b4d
line wrap: on
line diff
--- a/src/pt-arg-list.cc
+++ b/src/pt-arg-list.cc
@@ -195,7 +195,12 @@
   int j = 0;
   for (int k = 0; k < len; k++)
     {
-      index_position = (len == 1) ? -1 : k;
+      if (stash_object)
+	{
+	  unwind_protect_int (index_position);
+
+	  index_position = (len == 1) ? -1 : k;
+	}
 
       tree_expression *elt = *p++;