restore callable.

This commit is contained in:
Vítor Santos Costa
2014-10-20 09:20:56 +01:00
parent bf0844a2a0
commit d40b9d1426
17 changed files with 49 additions and 49 deletions

View File

@@ -3604,8 +3604,8 @@ Yap_cclause(volatile Term inp_clause, Int NOfArgs, Term mod, volatile Term src)
}
if (IsVarTerm(head) || IsPairTerm(head) || IsIntTerm(head) || IsFloatTerm(head) || IsRefTerm(head)) {
LOCAL_Error_TYPE = TYPE_ERROR_CALLABLE;
LOCAL_Error_Term = my_clause;
LOCAL_ErrorMessage = "clause should be atom or term";
LOCAL_Error_Term = head;
LOCAL_ErrorMessage = "clause head should be atom or compound term";
return (0);
} else {