Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19418
Modified Files:
Tag: devel_0_39
x_list.c
Log Message:
removed useless reference to global var "newest".
Index: x_list.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/x_list.c,v
retrieving revision 1.2.2.7
retrieving revision 1.2.2.8
diff -C2 -d -r1.2.2.7 -r1.2.2.8
*** x_list.c 30 Nov 2005 13:36:58 -0000 1.2.2.7
--- x_list.c 28 Nov 2006 15:36:03 -0000 1.2.2.8
***************
*** 21,27 ****
#endif
- extern t_pd *newest;
-
-
/* the "list" object family.
--- 21,24 ----
***************
*** 397,419 ****
{
if (!argc || argv[0].a_type != A_SYMBOL)
! newest = list_append_new(s, argc, argv);
else
{
t_symbol *s2 = argv[0].a_w.w_symbol;
! if (s2 == gensym("append"))
! newest = list_append_new(s, argc-1, argv+1);
! else if (s2 == gensym("prepend"))
! newest = list_prepend_new(s, argc-1, argv+1);
! else if (s2 == gensym("split"))
! newest = list_split_new(atom_getfloatarg(1, argc, argv));
! else if (s2 == gensym("trim"))
! newest = list_trim_new();
! else
! {
! error("list %s: unknown function", s2->s_name);
! newest = 0;
! }
}
- return (newest);
}
--- 394,408 ----
{
if (!argc || argv[0].a_type != A_SYMBOL)
! return list_append_new(s, argc, argv);
else
{
t_symbol *s2 = argv[0].a_w.w_symbol;
! if (s2 == gensym("append")) return list_append_new(s, argc-1, argv+1);
! if (s2 == gensym("prepend")) return list_prepend_new(s, argc-1, argv+1);
! if (s2 == gensym("split")) return list_split_new(atom_getfloatarg(1, argc, argv));
! if (s2 == gensym("trim")) return list_trim_new();
! error("list %s: unknown function", s2->s_name);
! return 0;
}
}