Mercurial > hg > octave-lojdl
changeset 387:dd2a919873e8
[project @ 1994-03-17 07:04:47 by jwe]
author | jwe |
---|---|
date | Thu, 17 Mar 1994 07:04:47 +0000 |
parents | c6eea89a2f09 |
children | c101e99482e6 |
files | src/tc-index.cc |
diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/tc-index.cc +++ b/src/tc-index.cc @@ -79,8 +79,9 @@ if (len == j.ones_count ()) cols = len; } - else if (args[2].is_scalar_type () - && NINT (args[2].double_value ()) == 1) + else if (args[2].const_type () == magic_colon + || (args[2].is_scalar_type () + && NINT (args[2].double_value ()) == 1)) { cols = 1; } @@ -102,8 +103,9 @@ if (len == i.ones_count ()) rows = len; } - else if (args[1].is_scalar_type () - && NINT (args[1].double_value ()) == 1) + else if (args[1].const_type () == magic_colon + || (args[1].is_scalar_type () + && NINT (args[1].double_value ()) == 1)) { rows = 1; }