# HG changeset patch
# User jwe
# Date 1173991064 0
# Node ID 59a4304b7cc56e6216d5774e1adda9b494b8dc58
# Parent  6b1535a09268a83fc12b23e92e527a477d553661
[project @ 2007-03-15 20:37:44 by jwe]

diff -r 6b1535a09268 -r 59a4304b7cc5 src/ChangeLog
--- a/src/ChangeLog	Thu Mar 15 18:03:18 2007 +0000
+++ b/src/ChangeLog	Thu Mar 15 20:37:44 2007 +0000
@@ -1,3 +1,7 @@
+2007-03-15  John W. Eaton  <jwe@octave.org>
+
+	* variables.cc (F__lock_global__): Delete.
+
 2007-03-14  John W. Eaton  <jwe@octave.org>
 
 	* graphics.cc: New file.
diff -r 6b1535a09268 -r 59a4304b7cc5 src/ov-fcn-handle.cc
--- a/src/ov-fcn-handle.cc	Thu Mar 15 18:03:18 2007 +0000
+++ b/src/ov-fcn-handle.cc	Thu Mar 15 20:37:44 2007 +0000
@@ -698,7 +698,17 @@
       if (! error_state && fh)
 	{
 	  std::string fh_nm = fh->fcn_name ();
-	  retval = fh_nm;
+
+	  if (fh_nm == "@<anonymous>")
+	    {
+	      std::ostringstream buf;
+
+	      fh->print_raw (buf);
+
+	      retval = buf.str ();
+	    }
+	  else
+	    retval = fh_nm;
 	}
       else
 	error ("func2str: expecting valid function handle as first argument");
diff -r 6b1535a09268 -r 59a4304b7cc5 src/variables.cc
--- a/src/variables.cc	Thu Mar 15 18:03:18 2007 +0000
+++ b/src/variables.cc	Thu Mar 15 20:37:44 2007 +0000
@@ -2041,36 +2041,6 @@
   return retval;
 }
 
-DEFUN (__lock_global__, args, ,
-    "-*- texinfo -*-\n\
-@deftypefn {Built-in Function} {} __lock_global__ (@var{name})\n\
-@end deftypefn")
-{
-  octave_value retval;
-
-  if (args.length () == 1)
-    {
-      std::string nm = args(0).string_value ();
-
-      if (! error_state)
-	{
-	  symbol_record *sr = global_sym_tab->lookup (nm);
-
-	  if (sr)
-	    sr->make_eternal ();
-	  else
-	    error ("__lock_global__: %s not found in global symbol table",
-		   nm.c_str ());
-	}
-      else
-	error ("__lock_global__: expecting argument to be a character string");
-    }
-  else
-    print_usage ();
-
-  return retval;
-}
-
 // Deleting names from the symbol tables.
 
 static inline bool