# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779951230 0
# Node ID 8ee0129c7bb8056e636f4be5055ba672827402e2
# Parent  3abf3f2ef6cf37f2f8304ee8ad1c21d8a1de3c31
(RETURN_UNGCPRO): Use if (1) .. else, not do ... while (0).

diff -r 3abf3f2ef6cf -r 8ee0129c7bb8 src/lisp.h
--- a/src/lisp.h	Mon Sep 19 05:03:02 1994 +0000
+++ b/src/lisp.h	Mon Sep 19 05:07:10 1994 +0000
@@ -1095,14 +1095,14 @@
 
 /* Evaluate expr, UNGCPRO, and then return the value of expr.  */
 #define RETURN_UNGCPRO(expr)			\
-do						\
+if (1)						\
     {						\
       Lisp_Object ret_ungc_val;			\
       ret_ungc_val = (expr);			\
       UNGCPRO;					\
       return ret_ungc_val;			\
     }						\
-while (1)
+else
 
 /* Defined in data.c */
 extern Lisp_Object Qnil, Qt, Qquote, Qlambda, Qsubr, Qunbound;