[PD-cvs] pd/src builtins.c,1.1.2.65,1.1.2.66

[chunlee]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17977

Modified Files:
      Tag: desiredata
	builtins.c 
Log Message:
[any] fix


Index: builtins.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/builtins.c,v
retrieving revision 1.1.2.65
retrieving revision 1.1.2.66
diff -C2 -d -r1.1.2.65 -r1.1.2.66
*** builtins.c	5 Sep 2007 00:07:25 -0000	1.1.2.65
--- builtins.c	5 Sep 2007 02:17:40 -0000	1.1.2.66
***************
*** 1087,1094 ****
  static void any_anything(t_any *x, t_symbol *s, int argc, t_atom *argv) {
      t_atom *outv; int outc = x->alist->n+argc+1; ATOMS_ALLOCA(outv, outc);
!     if (argv[0].a_type == A_FLOAT) {
!       alist_list(x->alist, 0, argc, argv); outlet_anything(x->outlet, &s_float, argc, argv);
      }
!     if (argv[0].a_type == A_SYMBOL) {
        alist_anything(x->alist, s, argc, argv); outlet_anything(x->outlet, s, argc, argv);
      }
--- 1087,1094 ----
  static void any_anything(t_any *x, t_symbol *s, int argc, t_atom *argv) {
      t_atom *outv; int outc = x->alist->n+argc+1; ATOMS_ALLOCA(outv, outc);
!     if (argv[0].a_type == A_FLOAT && s->name == "list" || s->name == "float") {
!       alist_list(x->alist, 0, argc, argv); outlet_anything(x->outlet, &s_list, argc, argv);return;
      }
!     if (argv[0].a_type == A_SYMBOL || s->name != "list" || s->name != "float") {
        alist_anything(x->alist, s, argc, argv); outlet_anything(x->outlet, s, argc, argv);
      }
***************
*** 1100,1104 ****
      alist_toatoms(x->alist, outv);
      if (!binbuf_getnatom(x->alist)) {outlet_bang(x->outlet);return;}
!     if (outv[0].a_type == A_FLOAT) {outlet_float(x->outlet, outv[0].a_float);}
      if (outv[0].a_type == A_SYMBOL) {outlet_anything(x->outlet, outv[0].a_symbol, outc-1, outv+1);}
      ATOMS_FREEA(outv, outc);
--- 1100,1104 ----
      alist_toatoms(x->alist, outv);
      if (!binbuf_getnatom(x->alist)) {outlet_bang(x->outlet);return;}
!     if (outv[0].a_type == A_FLOAT) {outlet_anything(x->outlet, &s_list, outc, outv);}
      if (outv[0].a_type == A_SYMBOL) {outlet_anything(x->outlet, outv[0].a_symbol, outc-1, outv+1);}
      ATOMS_FREEA(outv, outc);