Mercurial > hg > octave-nkf

diff src/data.cc @ 1277:db4f4009d6e8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-04-24 20:35:06 by jwe]
author jwe
date Mon, 24 Apr 1995 20:35:06 +0000
parents 0ffb52e268d7
children 611d403c7f3d
line wrap: on
line diff
--- a/src/data.cc
+++ b/src/data.cc
@@ -753,14 +753,11 @@
   if (nargin == 2)
     {
       retval = 0.0;
-      if (args(0).is_map ())
+      if (args(0).is_map () && args(1).is_string ())
 	{
-	  if (args(1).is_string ())
-	    {
-	      Octave_map m = args(0).map_value ();
-	      char *s = args(1).string_value ();
-	      retval = (double) (s && m.contains (s));
-	    }
+	  char *s = args(1).string_value ();
+	  tree_constant tmp = args(0).lookup_map_element (s, 0, 1);
+	  retval = (double) tmp.is_defined ();
 	}
     }
   else