diff src/event-stream.c @ 5126:2a462149bd6a ben-lisp-object

merge
author Ben Wing <ben@xemacs.org>
date Wed, 24 Feb 2010 19:04:27 -0600
parents b5df3737028a 6f2158fa75ed
children a9c41067dd88
line wrap: on
line diff
--- a/src/event-stream.c	Wed Feb 24 01:58:04 2010 -0600
+++ b/src/event-stream.c	Wed Feb 24 19:04:27 2010 -0600
@@ -1293,7 +1293,7 @@
   Lisp_Object lid;
   id = event_stream_generate_wakeup (msecs, msecs2, function, object, 0);
   lid = make_int (id);
-  if (id != XINT (lid)) ABORT ();
+  assert (id == XINT (lid));
   return lid;
 }
 
@@ -1372,7 +1372,7 @@
   Lisp_Object lid;
   id = event_stream_generate_wakeup (msecs, msecs2, function, object, 1);
   lid = make_int (id);
-  if (id != XINT (lid)) ABORT ();
+  assert (id == XINT (lid));
   return lid;
 }
 
@@ -3742,8 +3742,7 @@
   {
     Lisp_Object e = XVECTOR_DATA (Vrecent_keys_ring)[j];
 
-    if (NILP (e))
-      ABORT ();
+    assert (!NILP (e));
     XVECTOR_DATA (val)[i] = Fcopy_event (e, Qnil);
     if (++j >= recent_keys_ring_size)
       j = 0;