# HG changeset patch
# User jwe
# Date 782690139 0
# Node ID e21e192c9f87b4eeaa62e2a18b329a290f359015
# Parent  e003ab4b6ff0f75ceccf1c566fdb03c07edd0a18
[project @ 1994-10-20 21:55:39 by jwe]

diff -r e003ab4b6ff0 -r e21e192c9f87 src/tc-rep-idx.cc
--- a/src/tc-rep-idx.cc	Thu Oct 20 21:42:15 1994 +0000
+++ b/src/tc-rep-idx.cc	Thu Oct 20 21:55:39 1994 +0000
@@ -489,7 +489,13 @@
 
       idx_vector iv (mi, 1, "", len);
       if (! iv)
-	return tree_constant ();
+	return retval;
+
+      if (iv.max () >= nr * nc || iv.min () < 0)
+	{
+	  error ("matrix index out of range");
+	  return retval;
+	}
 
       int result_size = iv.length ();