From 30a4e64c970cb289fe10bc691395923ebb6971ba Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Sat, 20 Jan 2018 18:49:34 +0100 Subject: [PATCH] fix typo in ecl_clear_interrupts_env() --- src/h/external.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/h/external.h b/src/h/external.h index 845eb74ab..91a7e00cb 100755 --- a/src/h/external.h +++ b/src/h/external.h @@ -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)