mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 13:31:58 -08:00
Code Issues Projects Releases Packages Wiki Activity

fix typo in ecl_clear_interrupts_env()

Browse source
This commit is contained in:
Marius Gerbershagen 2018-01-20 18:49:34 +01:00
parent 1265ab111a
commit 30a4e64c97
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/h/external.h
View file

@ -1876,7 +1876,7 @@ extern ECL_API cl_object si_copy_file(cl_object orig, cl_object end);
#define ecl_disable_interrupts_env(env) ((env)->disable_interrupts=1)
#define ecl_enable_interrupts_env(env) (((env)->disable_interrupts^=1) && (ecl_check_pending_interrupts(env),0))
#endif
#define ecl_clear_interrupts_env(env) ((env)->pendinginterrupts=0)
#define ecl_clear_interrupts_env(env) ((env)->interrupt_struct->pending_interrupt=ECL_NIL)
#define ecl_clear_interrupts() ecl_clear_interrupts(&cl_env)
#define ecl_disable_interrupts() ecl_disable_interrupts_env(&cl_env)
#define ecl_enable_interrupts() ecl_enable_interrupts_env(&cl_env)