find symbols in proper scope when debugging (bug #40397) * lex.h (lexical_feedback::symbol_table_context::init_scope): Delete member variable and all uses. (lexical_feedback::symbol_table_context::pop): Assert that the context is not empty before popping. (lexical_feedback::symbol_table_context::push): Use default argument. (lexical_feedback::symbol_table_context::curr_scope): If empty, return symbol_table::current_scope, not the initial scope in effect when the object is created. * oct-parse.in.yy (octave_base_parser::make_anon_fcn_handle, octave_base_parser::recover_from_parsing_function): Don't check for empty lexer.symtab_context here.

clear;

disp('1st problem');
s=-1;
c=[10,6,4]';
a=[1,1,1;...
   10,4,5;...
   2,2,6];
b=[100,600,300]';
ctype=['U','U','U']';
lb=[0,0,0]';
ub=[]';
vartype=['C','C','C']';
param.msglev=3;
param.lpsolver=1;
param.save=1;
[xmin,fmin,status,extra]=glpk(c,a,b,lb,ub,ctype,vartype,s,param)
lpsolver = param.lpsolver;
save_pb = param.save;
[xmin,fmin,status,extra]=glpkmex(s,c,a,b,ctype,lb,ub,vartype,param,lpsolver,save_pb)