From 248a999f99146e87e8bf007db73165b833674f9d Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Mon, 28 Apr 2014 09:13:14 +0900
Subject: [PATCH] t of (sit-for 0.1 t) has a bug, so do not use it.

---
 elisp/ghc-process.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/elisp/ghc-process.el b/elisp/ghc-process.el
index 4d2fe35..f480671 100644
--- a/elisp/ghc-process.el
+++ b/elisp/ghc-process.el
@@ -102,7 +102,7 @@
   (setq ghc-process-num-of-results (or n 1))
   (ghc-with-process cmd 'ghc-process-callback nil hook)
   (while (null ghc-process-rendezvous)
-    (sit-for 0.1 t))
+    (sit-for 0.1))
   ghc-process-results)
 
 (defun ghc-process-callback (status)