The R Project SVN R

Rev

Rev 7002 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7002 Rev 7133
Line 579... Line 579...
579 
	switch(*str) {
 579 
	switch(*str) {
580 
	case '\n':
 580 
	case '\n':
581 
	    fprintf(fp, "\\n");
 581 
	    fprintf(fp, "\\n");
582 
	    break;
 582 
	    break;
583 
	case '-':
 583 
	case '-':
584 
	    if (isdigit(str[1]))
 584 
	    if (isdigit((int)str[1]))
585 
		fputc(PS_minus, fp);
 585 
		fputc(PS_minus, fp);
586 
	    else
 586 
	    else
587 
		fputc(*str, fp);
 587 
		fputc(*str, fp);
588 
	    break;
 588 
	    break;
589 
	case '(':
 589 
	case '(':