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; } }