Mercurial > hg > octave-nkf

diff src/symtab.h @ 7346:40252ccfcb67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2008-01-04 20:26:25 by jwe]
author jwe
date Fri, 04 Jan 2008 20:26:26 +0000
parents 745a8299c2b5
children 4ff9611147ba
line wrap: on
line diff
--- a/src/symtab.h
+++ b/src/symtab.h
@@ -1,7 +1,7 @@
 /*
 
 Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2002, 2003,
-              2004, 2005, 2006, 2007 John W. Eaton
+              2004, 2005, 2006, 2007, 2008 John W. Eaton
   
 This file is part of Octave.
 
@@ -657,7 +657,7 @@
 
     set_scope (scope_stack[0]);
 
-    xcurrent_caller_scope = scope_stack[1];
+    xcurrent_caller_scope = scope_stack.size () > 1 ? scope_stack[1] : -1;
   }
 
   static void pop_scope (void *) { pop_scope (); }