mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-12 16:00:31 -07:00
Code Issues Projects Releases Packages Wiki Activity

Fixed a typo in queue.d

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-01 12:32:44 +02:00
parent b45695b642
commit e607b5c7f8
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/threads/queue.d
View file

@ -245,12 +245,15 @@ ecl_wait_on(cl_env_ptr env, cl_object (*condition)(cl_env_ptr, cl_object), cl_ob
own_process->process.waiting_for = Cnil;
own_process->process.queue_record = record;
ECL_RPLACD(record, Cnil);
pthread_sigmask(SIG_SETMASK, NULL, &original);
/* 6) ... we continue wat was started in 4) */
if (0 && aborting && (firstone == record)) {
if (aborting && (firstone == record)) {
ecl_wakeup_waiters(the_env, o, 0);
}
/* 7) Restoring signals is done last, to ensure that
all cleanup steps are performed. */
pthread_sigmask(SIG_SETMASK, NULL, &original);
} CL_UNWIND_PROTECT_END;
#else
ecl_wait_on_timed(env, condition, o);