# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 779933736 0
# Node ID 80ac0db9a77a4ca8f98ba13e964fc33e93387dfc
# Parent  ab65a3dae2215f70ce1f9f90da932f4a5e45e06f
(Fsignal): Fix Lisp_Object vs. int problems.

diff -r ab65a3dae221 -r 80ac0db9a77a src/eval.c
--- a/src/eval.c	Mon Sep 19 00:15:08 1994 +0000
+++ b/src/eval.c	Mon Sep 19 00:15:36 1994 +0000
@@ -1199,7 +1199,7 @@
 	  struct handler *h = handlerlist;
 
 	  handlerlist = allhandlers;
-	  if (data == memory_signal_data)
+	  if (EQ (data, memory_signal_data))
 	    unwind_data = memory_signal_data;
 	  else
 	    unwind_data = Fcons (error_symbol, data);