Mercurial > hg > xemacs-beta

comparison src/eval.c @ 1322:0e48d8b45bdb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-02-23 10:58:01 by ben] another boo-boo eval.c: damn those off-by-one errors.
author ben
date Sun, 23 Feb 2003 10:58:05 +0000
parents b531bf8658e9
children 1b0339b048ce
comparison
equal deleted inserted replaced
1321:4f69b7a5bf9f 1322:0e48d8b45bdb
5960 Lisp_Object oquit = Qunbound; 5960 Lisp_Object oquit = Qunbound;
5961 5961
5962 /* Do this check BEFORE decrementing the values below, because once 5962 /* Do this check BEFORE decrementing the values below, because once
5963 they're decremented, GC protection is lost on 5963 they're decremented, GC protection is lost on
5964 specpdl_ptr->old_value. */ 5964 specpdl_ptr->old_value. */
5965 if (specpdl_ptr->func == Fprogn) 5965 if (specpdl_ptr[-1].func == Fprogn)
5966 { 5966 {
5967 /* Allow QUIT within unwind-protect routines, but defer any 5967 /* Allow QUIT within unwind-protect routines, but defer any
5968 existing QUIT until afterwards. Only do this, however, for 5968 existing QUIT until afterwards. Only do this, however, for
5969 unwind-protects established by Lisp code, not by C code 5969 unwind-protects established by Lisp code, not by C code
5970 (e.g. free_opaque_ptr() or something), because the act of 5970 (e.g. free_opaque_ptr() or something), because the act of