The R Project SVN R

(root)/branches/R-classInheritance/src/main/array.c @ 63243 – Rev 45667 → 47049



	default:
	    /* don't fill with anything */
	    ;
	}
    }
    if(!isNull(dimnames)&& length(dimnames) > 0) 
	ans = dimnamesgets(ans, dimnames);
    UNPROTECT(1);
    return ans;
}
 
 

Rev 45667	Rev 47049
Line 150...	Line 150...
150	`default:`	150	`default:`
151	`/* don't fill with anything */`	151	`/* don't fill with anything */`
152	`;`	152	`;`
153	`}`	153	`}`
154	`}`	154	`}`
155	`if(!isNull(dimnames)) ans = dimnamesgets(ans, dimnames);`	155	`if(!isNull(dimnames)&& length(dimnames) > 0)`
-		156	`ans = dimnamesgets(ans, dimnames);`
156	`UNPROTECT(1);`	157	`UNPROTECT(1);`
157	`return ans;`	158	`return ans;`
158	`}`	159	`}`
159		160
160		161