From 08acf82266b75da22ea20f2fefa3bd56353e0a8a Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Fri, 13 Mar 2009 19:00:14 +0000
Subject: [PATCH] handle non-wide atoms correctly.

---
 C/adtdefs.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/C/adtdefs.c b/C/adtdefs.c
index 7cfef1075..a95582b80 100644
--- a/C/adtdefs.c
+++ b/C/adtdefs.c
@@ -286,6 +286,7 @@ Yap_LookupMaybeWideAtom(wchar_t *atom)
     len++;
   }
   /* not really a wide atom */
+  p = atom;
   ptr0 = ptr = Yap_AllocCodeSpace(len+1);
   if (!ptr)
     return NIL;