# HG changeset patch
# User jwe
# Date 809240561 0
# Node ID 14e4c2a741c6ec7d9e3b2db24f373911d6257ce6
# Parent  c04c2a6849e8008b340b348081a9d5d9a41a4815
[project @ 1995-08-24 05:02:41 by jwe]

diff -r c04c2a6849e8 -r 14e4c2a741c6 src/rand.cc
--- a/src/rand.cc	Thu Aug 24 01:35:58 1995 +0000
+++ b/src/rand.cc	Thu Aug 24 05:02:41 1995 +0000
@@ -213,8 +213,29 @@
 	}
       else if (tmp.is_matrix_type ())
 	{
+// XXX FIXME XXX -- this should probably use the function from data.cc.
+
+	  Matrix a = args(0).matrix_value ();
+
+	  if (error_state)
+	    return retval;
+
 	  n = args(0).rows ();
 	  m = args(0).columns ();
+
+	  if (n == 1 && m == 2)
+	    {
+	      n = NINT (a.elem (0, 0));
+	      m = NINT (a.elem (0, 1));
+	    }
+	  else if (n == 2 && m == 1)
+	    {
+	      n = NINT (a.elem (0, 0));
+	      m = NINT (a.elem (1, 0));
+	    }
+	  else
+	    warning ("rand (A): use rand (size (A)) instead");
+
 	  goto gen_matrix;
 	}
       else