From 5ab2cdf139a1fd8cd4c9700970dc08c1c25820d8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Thu, 12 Jun 2008 09:04:56 +0000
Subject: more compatibility with [pack] (that's important on Pd>=0.42)

svn path=/trunk/externals/zexy/; revision=9983
---
 src/pack.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/pack.c b/src/pack.c
index 39ae244..cf65f46 100644
--- a/src/pack.c
+++ b/src/pack.c
@@ -59,8 +59,9 @@ static void zpack_bang(t_zpack*x) {
 }
 
 static void zpack_list0(t_zpack*x, t_symbol *s, int argc, t_atom *argv) {
-  if(argc>0)
-    setatom(x, argv, 0);
+  int i=0;
+  for(i=0; i<argc && i<x->x_argc; i++)
+    setatom(x, argv+i, i);
   zpack_bang(x);
 }
 
-- 
cgit v1.2.1