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

@@ -2616,7 +2616,7 @@ p_compile( USES_REGS1 )
YAPLeaveCriticalSection();
if (LOCAL_ErrorMessage) {
if (LOCAL_Error_TYPE == TYPE_ERROR_CALLABLE) {
Yap_Error(LOCAL_Error_TYPE, Yap_PredicateIndicator(t, mod), LOCAL_ErrorMessage);
Yap_Error(LOCAL_Error_TYPE, t, LOCAL_ErrorMessage);
}
if (IntOfTerm(t1) & 4) {
Yap_Error(TYPE_ERROR_CALLABLE, LOCAL_Error_Term,