fix point where we assume unbound array

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@303 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

C/arrays.c

@@ -668,7 +668,7 @@ p_create_array(void)
       ArrayEntry *app = (ArrayEntry *) pp;
 
       WRITE_UNLOCK(ae->ARWLock);
-      if (!IsUnboundVar(app->ValueOfVE))
+      if (!IsVarTerm(app->ValueOfVE) || !IsUnboundVar(app->ValueOfVE))
 	Error(PERMISSION_ERROR_CREATE_ARRAY,t,"create_array",
 	      ae->StrOfAE);
       else {

changes4.3.html

@@ -16,6 +16,8 @@
 
 <h2>Yap-4.3.21:</h2>
 <ul>
+	<li>FIXED: abolish could backtrack and give weird error (Nicos
+	Angelopoulos).</li>
 	<li>FIXED: make consult, use_module and friends meta-predicates
 	(Nicos Angelopoulos).</li>
 	<li>FIXED: make use_module a directive.</li>