Mercurial > emacs

comparison src/lisp.h @ 8912:8ee0129c7bb8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(RETURN_UNGCPRO): Use if (1) .. else, not do ... while (0).
author Richard M. Stallman <rms@gnu.org>
date Mon, 19 Sep 1994 05:07:10 +0000
parents 2d697a9302a7
children 2281d87b7c91
comparison
equal deleted inserted replaced
8911:3abf3f2ef6cf 8912:8ee0129c7bb8
1093 1093
1094 #define UNGCPRO (gcprolist = gcpro1.next) 1094 #define UNGCPRO (gcprolist = gcpro1.next)
1095 1095
1096 /* Evaluate expr, UNGCPRO, and then return the value of expr. */ 1096 /* Evaluate expr, UNGCPRO, and then return the value of expr. */
1097 #define RETURN_UNGCPRO(expr) \ 1097 #define RETURN_UNGCPRO(expr) \
1098 do \ 1098 if (1) \
1099 { \ 1099 { \
1100 Lisp_Object ret_ungc_val; \ 1100 Lisp_Object ret_ungc_val; \
1101 ret_ungc_val = (expr); \ 1101 ret_ungc_val = (expr); \
1102 UNGCPRO; \ 1102 UNGCPRO; \
1103 return ret_ungc_val; \ 1103 return ret_ungc_val; \
1104 } \ 1104 } \
1105 while (1) 1105 else
1106 1106
1107 /* Defined in data.c */ 1107 /* Defined in data.c */
1108 extern Lisp_Object Qnil, Qt, Qquote, Qlambda, Qsubr, Qunbound; 1108 extern Lisp_Object Qnil, Qt, Qquote, Qlambda, Qsubr, Qunbound;
1109 extern Lisp_Object Qerror_conditions, Qerror_message, Qtop_level; 1109 extern Lisp_Object Qerror_conditions, Qerror_message, Qtop_level;
1110 extern Lisp_Object Qerror, Qquit, Qwrong_type_argument, Qargs_out_of_range; 1110 extern Lisp_Object Qerror, Qquit, Qwrong_type_argument, Qargs_out_of_range;