[PD-cvs] pd/src x_list.c,1.2.2.7,1.2.2.8

Mathieu Bouchard matju at users.sourceforge.net
Tue Nov 28 16:36:07 CET 2006


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





More information about the Pd-cvs mailing list