Raise an error when the thread cannot be created correctly.

diff --git a/src/thread.c b/src/thread.c
index 3c6511ea74e7f3ccbb4bdb68939e5e0aad3ecb64..6e447cb1143cbd0e36527fcd35cdf33a12e4e3a0 100644 (file)
--- a/src/thread.c
+++ b/src/thread.c
@@ -347,6 +347,7 @@ does not try to get a lock on the current buffer.  */)
     {
       /* Restore the previous situation.  */
       all_threads = all_threads->next_thread;
+      error ("Cannot create new thread");
     }
 
   return Qnil;