emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 7cc6617: Revert Vinternal_interpreter_environment t


From: Paul Eggert
Subject: [Emacs-diffs] master 7cc6617: Revert Vinternal_interpreter_environment tweak
Date: Mon, 22 Apr 2019 23:02:37 -0400 (EDT)

branch: master
commit 7cc66173e4288237eb00b96f1d2162b80c0e0b1b
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    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.
---
 src/eval.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/eval.c b/src/eval.c
index fde63f1..3fd9a40 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);
     }



reply via email to

[Prev in Thread] Current Thread [Next in Thread]