Mercurial > hg > octave-nkf

comparison src/rand.cc @ 216:e83d64b26659

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-11-13 09:04:18 by jwe]
author jwe
date Sat, 13 Nov 1993 09:11:10 +0000
parents d1c5e5edbf1e
children a99f28f5e351
comparison
equal deleted inserted replaced
215:cf3f13026ff6 216:e83d64b26659
166 current_distribution = normal; 166 current_distribution = normal;
167 else 167 else
168 { 168 {
169 delete [] retval; 169 delete [] retval;
170 retval = NULL_TREE_CONST; 170 retval = NULL_TREE_CONST;
171 message ("rand", "unrecognized string argument"); 171 error ("rand: unrecognized string argument");
172 } 172 }
173 break; 173 break;
174 case tree_constant_rep::scalar_constant: 174 case tree_constant_rep::scalar_constant:
175 case tree_constant_rep::complex_scalar_constant: 175 case tree_constant_rep::complex_scalar_constant:
176 n = NINT (args[1].double_value ()); 176 n = NINT (args[1].double_value ());
246 } 246 }
247 247
248 retval[0] = tree_constant (rand_mat); 248 retval[0] = tree_constant (rand_mat);
249 } 249 }
250 else 250 else
251 message ("rand", "invalid negative argument"); 251 error ("rand: invalid negative argument");
252 252
253 return retval; 253 return retval;
254 } 254 }
255 255
256 /* 256 /*