diff options
| author | Richard M. Stallman | 1994-09-19 05:07:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-09-19 05:07:10 +0000 |
| commit | f3ca341e3c718e0e308d009153ef6dfcb3172fcb (patch) | |
| tree | 0fddd6f3a531345a990204d0100766e3979ad0ff | |
| parent | aa138cb4197b06a94f26c01131dd2574347f37bc (diff) | |
| download | emacs-f3ca341e3c718e0e308d009153ef6dfcb3172fcb.tar.gz emacs-f3ca341e3c718e0e308d009153ef6dfcb3172fcb.zip | |
(RETURN_UNGCPRO): Use if (1) .. else, not do ... while (0).
| -rw-r--r-- | src/lisp.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lisp.h b/src/lisp.h index c2a06e4eb07..8fbc5345d32 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -1095,14 +1095,14 @@ void staticpro(); | |||
| 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; |