# HG changeset patch
# User jwe
# Date 1146605810 0
# Node ID 96cd81ed579e8fee19dd42e927e9ec42799adbf6
# Parent  faafc2d98b8d5055c035b13f32f8625b6f3c2c07
[project @ 2006-05-02 21:36:02 by jwe]

diff --git a/gdbinit.in b/gdbinit.in
new file mode 100644
--- /dev/null
+++ b/gdbinit.in
@@ -0,0 +1,1 @@
+set args --path="%top_srcdir%/scripts//:%builddir%/src//:"
diff --git a/src/ChangeLog b/src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2006-05-02  David Bateman  <dbateman@free.fr>
+
+	* DLD-FUNCTIONS/rand.cc (do_rand): Require real scalar for seed.
+
 2006-05-01  John W. Eaton  <jwe@octave.org>
 
 	* error.h (Vwarning_option): Delete.
diff --git a/src/DLD-FUNCTIONS/rand.cc b/src/DLD-FUNCTIONS/rand.cc
--- a/src/DLD-FUNCTIONS/rand.cc
+++ b/src/DLD-FUNCTIONS/rand.cc
@@ -228,10 +228,15 @@
 
 	    if (ts == "seed")
 	      {
-		double d = args(idx+1).double_value ();
+		if (args(idx+1).is_real_scalar ())
+		  {
+		    double d = args(idx+1).double_value ();
 
-		if (! error_state)
-		  octave_rand::seed (d);
+		    if (! error_state)
+		      octave_rand::seed (d);
+		  }
+		else
+		  error ("%s: seed must be a real scalar", fcn);
 	      }
 	    else if (ts == "state" || ts == "twister")
 	      {