mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-25 11:30:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

a bunch of revisions

Browse source
This commit is contained in:
pls.153 2022-01-29 09:37:19 +01:00
parent 1220bf06dc
commit 113386fdae
16 changed files with 109 additions and 112 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cpp/ecl_ext.cpp
View file

@ -348,7 +348,7 @@ cl_object qsingle_shot2(cl_object l_msec, cl_object l_fun) {
/// (qsingle-shot 1000 'one-second-later)
ecl_process_env()->nvalues = 1;
if (l_fun != ECL_NIL) {
new SingleShot(toInt(l_msec), l_fun); // see "delete this;" in "single_shot.h"
new SingleShot(toInt(l_msec), l_fun);
return l_msec;
}
error_msg("QSINGLE-SHOT", LIST2(l_msec, l_fun));