fix YAPOR_THREADS (prof. Vitor Costa)

C/c_interface.c

@@ -3172,7 +3172,11 @@ YAP_Init(YAP_init_args *yap_init)
 #endif /* YAPOR || TABLING */
 #ifdef YAPOR
     Yap_init_yapor_workers();
+#if YAPOR_THREADS
+    if (Yap_thread_self() != 0) {
+#else
     if (worker_id != 0) {
+#endif
 #if defined(YAPOR_COPY) || defined(YAPOR_SBA)
       /*
 	In the SBA we cannot just happily inherit registers