Mercurial > hg > octave-lyh

diff src/error.cc @ 2745:76411ce43c05

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-02-26 07:52:14 by jwe]
author jwe
date Wed, 26 Feb 1997 07:52:17 +0000
parents 5c773d4745d6
children bca5fbab2e52
line wrap: on
line diff
--- a/src/error.cc
+++ b/src/error.cc
@@ -211,20 +211,23 @@
 
   int nargin = args.length ();
 
-  octave_value arg = ((nargin > 1) ? Fsprintf (args, 1) : args) (0);
-
-  if (arg.is_defined ())
+  if (nargin > 0)
     {
-      if (arg.is_string ())
+      octave_value arg = ((nargin > 1) ? Fsprintf (args, 1) : args) (0);
+
+      if (arg.is_defined ())
 	{
-	  tstr = arg.string_value ();
-	  msg = tstr.c_str ();
-
-	  if (! msg)
+	  if (arg.is_string ())
+	    {
+	      tstr = arg.string_value ();
+	      msg = tstr.c_str ();
+	      
+	      if (! msg)
+		return retval;
+	    }
+	  else if (arg.is_empty ())
 	    return retval;
 	}
-      else if (arg.is_empty ())
-	return retval;
     }
 
 // Ugh.