fixed a bug in [packel] (for 0 length lists, and for indeces that were beyond the list-length)

svn path=/trunk/externals/zexy/; revision=621

1 files changed, 6 insertions, 2 deletions

diff --git a/src/z_pack.c b/src/z_pack.c
index 22a74eb..8e1f8a1 100644
--- a/src/z_pack.c
+++ b/src/z_pack.c
@@ -276,8 +276,12 @@ static void packel_list(t_packel *x, t_symbol *s, int argc, t_atom *argv)
     t_atom *current;
     int pos = (mypos < 0)?(argc+mypos):(mypos-1);
 
-    if (pos < 0) pos = 0;
-    else if (pos >= argc) pos = argc - 1;
+    if(argc==0){
+      if (pos==0||pos==-1)outlet_bang(x->x_obj.ob_outlet);
+      return;
+    }
+    
+    if (pos < 0 || pos >= argc)return;
 
     current = &(argv[pos]);