diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2019-04-22 20:02:20 -0700 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-04-22 20:02:32 -0700 |
commit | 7cc66173e4288237eb00b96f1d2162b80c0e0b1b (patch) | |
tree | 17448ea373afdcb13ca1acb7afa6aa038d187eb4 /src/eval.c | |
parent | 27540be5c6265821d8197beeebb82113994c6b94 (diff) | |
download | emacs-7cc66173e4288237eb00b96f1d2162b80c0e0b1b.tar.gz |
Revert Vinternal_interpreter_environment tweak
Stefan Monnier pointed out examples like (funcall `(closure
,(let ((cycle (list nil))) (setcdr cycle cycle)) () a)),
where the user can set Vinternal_interpreter_environment
indirectly.
* src/eval.c (Fsetq): Revert recent change, going back to Fassq.
Diffstat (limited to 'src/eval.c')
-rw-r--r-- | src/eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index fde63f1a21c..3fd9a40a3a2 100644 --- a/src/eval.c +++ b/src/eval.c @@ -513,7 +513,7 @@ usage: (setq [SYM VAL]...) */) Lisp_Object lex_binding = ((!NILP (Vinternal_interpreter_environment) /* Mere optimization! */ && SYMBOLP (sym)) - ? assq_no_quit (sym, Vinternal_interpreter_environment) + ? Fassq (sym, Vinternal_interpreter_environment) : Qnil); if (!NILP (lex_binding)) XSETCDR (lex_binding, val); /* SYM is lexically bound. */ @@ -2162,7 +2162,7 @@ eval_sub (Lisp_Object form) already did that when let-binding the variable. */ Lisp_Object lex_binding = (!NILP (Vinternal_interpreter_environment) /* Mere optimization! */ - ? assq_no_quit (form, Vinternal_interpreter_environment) + ? Fassq (form, Vinternal_interpreter_environment) : Qnil); return !NILP (lex_binding) ? XCDR (lex_binding) : Fsymbol_value (form); } |