mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2026-01-11 03:31:47 -08:00
Code Issues Projects Releases Packages Wiki Activity

restore default debug behavior with command line option -qtpl

Browse source
This commit is contained in:
polos 2020-12-07 22:39:35 +01:00
parent 54a6879960
commit ac63828762
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/eql.cpp
View file

@ -123,6 +123,7 @@ void EQL::exec(const QStringList& args) {
// -qtpl
else if(arguments.contains("-qtpl") || (cl_symbol_value(s_qtpl) == Ct)) {
arguments.removeAll("-qtpl");
evalMode = DebugOnError;
ecl_setq(ecl_process_env(), s_qtpl, Ct);
QApplication::setQuitOnLastWindowClosed(false);
forms << "(when (directory (in-home \"lib/ecl-readline.fas*\"))"