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	Tue Mar 15 23:21:56 1994 +0000
+++ b/src/tc-index.cc	Thu Mar 17 07:04:47 1994 +0000
@@ -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;
 	      }