# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1215634579 14400
# Node ID 75df1f0b4c9da9a130e655a0fb096b049bd4a494
# Parent  3b46230f7a4d92308de98d22ad48eb8e83a62665
toplev.h (octave_call_stack::instance_ok): push top scope when creating instance

diff -r 3b46230f7a4d -r 75df1f0b4c9d src/ChangeLog
--- a/src/ChangeLog	Wed Jul 09 12:28:26 2008 -0400
+++ b/src/ChangeLog	Wed Jul 09 16:16:19 2008 -0400
@@ -1,5 +1,8 @@
 2008-07-09  John W. Eaton  <jwe@octave.org>
 
+	* toplev.h (octave_call_stack::instance_ok): Push top scope when
+	creating instance.
+
 	* DLD-FUNCTIONS/inv.cc (Finv): Avoid GCC warning.
 
 	* DLD-FUNCTIONS/expm.cc (Fexpm): Avoid GCC warning.
diff -r 3b46230f7a4d -r 75df1f0b4c9d src/toplev.h
--- a/src/toplev.h	Wed Jul 09 12:28:26 2008 -0400
+++ b/src/toplev.h	Wed Jul 09 16:16:19 2008 -0400
@@ -110,13 +110,17 @@
     bool retval = true;
 
     if (! instance)
-      instance = new octave_call_stack ();
+      {
+	instance = new octave_call_stack ();
 
-    if (! instance)
-      {
-	::error ("unable to create call stack object!");
+	if (instance)
+	  instance->do_push (0, symbol_table::top_scope (), 0);
+	else
+	  {
+	    ::error ("unable to create call stack object!");
 
-	retval = false;
+	    retval = false;
+	  }
       }
 
     return retval;