aboutsummaryrefslogtreecommitdiffstats
path: root/src/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c
index f5397e9fb72..d66bcdae6ce 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -689,7 +689,7 @@ lexbound_p (Lisp_Object symbol)
689 { 689 {
690 case SPECPDL_LET_DEFAULT: 690 case SPECPDL_LET_DEFAULT:
691 case SPECPDL_LET: 691 case SPECPDL_LET:
692 if (EQ (specpdl_symbol (pdl), Qinternal_interpreter_environment)) 692 if (BASE_EQ (specpdl_symbol (pdl), Qinternal_interpreter_environment))
693 { 693 {
694 Lisp_Object env = specpdl_old_value (pdl); 694 Lisp_Object env = specpdl_old_value (pdl);
695 if (CONSP (env) && !NILP (Fassq (symbol, env))) 695 if (CONSP (env) && !NILP (Fassq (symbol, env)))
@@ -4107,7 +4107,7 @@ NFRAMES and BASE specify the activation frame to use, as in `backtrace-frame'.
4107 { 4107 {
4108 Lisp_Object sym = specpdl_symbol (tmp); 4108 Lisp_Object sym = specpdl_symbol (tmp);
4109 Lisp_Object val = specpdl_old_value (tmp); 4109 Lisp_Object val = specpdl_old_value (tmp);
4110 if (EQ (sym, Qinternal_interpreter_environment)) 4110 if (BASE_EQ (sym, Qinternal_interpreter_environment))
4111 { 4111 {
4112 Lisp_Object env = val; 4112 Lisp_Object env = val;
4113 for (; CONSP (env); env = XCDR (env)) 4113 for (; CONSP (env); env = XCDR (env))