diff src/event-stream.c @ 5120:d1247f3cc363 ben-lisp-object

latest work on lisp-object workspace; more changes eliminating LCRECORD in place of LISP_OBJECT; now compiles and runs.
author Ben Wing <ben@xemacs.org>
date Mon, 28 Dec 2009 01:15:52 -0600
parents e0db3c197671
children 623d57b7fbe8
line wrap: on
line diff
--- a/src/event-stream.c	Sat Dec 26 21:22:48 2009 -0600
+++ b/src/event-stream.c	Mon Dec 28 01:15:52 2009 -0600
@@ -455,7 +455,7 @@
       xfree (builder->echo_buf, Ibyte *);
       builder->echo_buf = NULL;
     }
-  FREE_LCRECORD (wrap_command_builder (builder));
+  FREE_LISP_OBJECT (wrap_command_builder (builder));
 }
 
 static void
@@ -1163,7 +1163,7 @@
       *timeout_list = noseeum_cons (op, *timeout_list);
     }
   else
-    FREE_LCRECORD (op);
+    FREE_LISP_OBJECT (op);
 
   UNGCPRO;
   return id;
@@ -1200,7 +1200,7 @@
 	signal_remove_async_interval_timeout (timeout->interval_id);
       else
 	event_stream_remove_timeout (timeout->interval_id);
-      FREE_LCRECORD (op);
+      FREE_LISP_OBJECT (op);
     }
 }