# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 779933689 0
# Node ID 3c6b5ba4d559511df98bc024f1ebe93c3136e7f6
# Parent  81103c53aa592b5962e07dfef589bc148c98b50c
[!MULTI_FRAME] (FOR_EACH_FRAME): Fix Lisp_Object vs. int problems.

diff -r 81103c53aa59 -r 3c6b5ba4d559 src/frame.h
--- a/src/frame.h	Mon Sep 19 00:14:16 1994 +0000
+++ b/src/frame.h	Mon Sep 19 00:14:49 1994 +0000
@@ -444,7 +444,7 @@
    `for' loop which traverses Vframe_list using LIST_VAR and
    FRAME_VAR.  */
 #define FOR_EACH_FRAME(list_var, frame_var)			\
-  for (list_var = Qt; frame_var = selected_frame, ! NILP (list_var); list_var = Qnil)
+  for (list_var = Qt; XFASTINT (frame_var) = selected_frame, ! NILP (list_var); list_var = Qnil)
 
 #endif /* not MULTI_FRAME */