From f89f7e8e98b324b0528c5e8e3ff69fe9fc68a424 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@xato.(none)>
Date: Mon, 13 Dec 2010 21:07:35 +0000
Subject: [PATCH] PL_set_engine should always return a sensible answer, even if
 multi-threading is not on.

---
 library/dialect/swi/fli/swi.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/library/dialect/swi/fli/swi.c b/library/dialect/swi/fli/swi.c
index fd4a45264..53ac71acf 100755
--- a/library/dialect/swi/fli/swi.c
+++ b/library/dialect/swi/fli/swi.c
@@ -2894,6 +2894,7 @@ PL_set_engine(PL_engine_t engine, PL_engine_t *old)
   }
   return PL_ENGINE_SET;
 #else
+  if (old) *old = (PL_engine_t)&Yap_WLocal;
   return FALSE;
 #endif
 }