# HG changeset patch
# User jwe
# Date 763890250 0
# Node ID c101e99482e64f2edef50dc692795be9da8cadec
# Parent  dd2a919873e8d2dc54047fdfd3415d072247f2b4
[project @ 1994-03-17 07:44:10 by jwe]

diff --git a/src/tc-index.cc b/src/tc-index.cc
--- a/src/tc-index.cc
+++ b/src/tc-index.cc
@@ -109,6 +109,12 @@
 	      {
 		rows = 1;
 	      }
+	    else if (args[1].is_scalar_type ()
+		     && NINT (args[1].double_value ()) == 0)
+	      {
+		Matrix m (0, 0);
+		return tree_constant (m);
+	      }
 	    else
 	      break;
 
@@ -294,7 +300,7 @@
 
       int result_size = iv.length ();
 
-      if (columns () == 1 || iv.one_zero_only ())
+      if (nc == 1 || (nr != 1 && iv.one_zero_only ()))
 	{
 	  CRMATRIX (m, cm, result_size, 1);
 
@@ -307,7 +313,7 @@
 
 	  ASSIGN_CRMATRIX_TO (retval, m, cm);
 	}
-      else if (rows () == 1)
+      else if (nr == 1)
 	{
 	  CRMATRIX (m, cm, 1, result_size);