[PD-cvs] pd/src builtins.c,1.1.2.51,1.1.2.52

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	builtins.c 
Log Message:
fix for a bug introduced yesterday in [unpack]


Index: builtins.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/builtins.c,v
retrieving revision 1.1.2.51
retrieving revision 1.1.2.52
diff -C2 -d -r1.1.2.51 -r1.1.2.52
*** builtins.c	30 Jul 2007 04:26:01 -0000	1.1.2.51
--- builtins.c	30 Jul 2007 16:20:33 -0000	1.1.2.52
***************
*** 1537,1544 ****
  	x->vec[i] = outlet_new(x,0);
          switch (argv[i].a_type) {
! 	    case A_FLOAT: x->vat[i]='f'; break;
  	    case A_SYMBOL: {
  		const char *s = atom_getstring(&argv[i]);
! 		if (strlen(s)<1 || (x->vat[i]=atomtype_from_letter(s[0]))==A_CANT) {error("%s: bad type", s); x->vat[i]='f';}
  		break;
  	    }
--- 1537,1544 ----
  	x->vec[i] = outlet_new(x,0);
          switch (argv[i].a_type) {
! 	    case A_FLOAT: x->vat[i]=A_FLOAT; break;
  	    case A_SYMBOL: {
  		const char *s = atom_getstring(&argv[i]);
! 		if (strlen(s)<1 || (x->vat[i]=atomtype_from_letter(s[0]))==A_CANT) {error("%s: bad type", s); x->vat[i]=A_FLOAT;}
  		break;
  	    }