From 5651640d578fa2efa40be4789d9fa61813ccb1fa Mon Sep 17 00:00:00 2001
From: Tom Tromey <tromey@redhat.com>
Date: Sun, 19 Aug 2012 03:23:03 -0600
Subject: condition variables

This implements condition variables for elisp.
This needs more tests.
---
 src/print.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'src/print.c')

diff --git a/src/print.c b/src/print.c
index b14a769dc74..78a0707627c 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1967,6 +1967,18 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag
 	    }
 	  PRINTCHAR ('>');
 	}
+      else if (CONDVARP (obj))
+	{
+	  strout ("#<condvar ", -1, -1, printcharfun);
+	  if (STRINGP (XCONDVAR (obj)->name))
+	    print_string (XCONDVAR (obj)->name, printcharfun);
+	  else
+	    {
+	      int len = sprintf (buf, "%p", XCONDVAR (obj));
+	      strout (buf, len, len, printcharfun);
+	    }
+	  PRINTCHAR ('>');
+	}
       else
 	{
 	  ptrdiff_t size = ASIZE (obj);
-- 
cgit v1.2.1