fix flags

This commit is contained in:
Vítor Santos Costa 2016-01-03 01:29:27 +00:00
parent 792f3e9dd9
commit c927cd5133

View File

@ -662,7 +662,7 @@ Yap_InitErrorPreds( void )
CACHE_REGS
Term cm = CurrentModule;
CurrentModule = ERROR_MODULE;
Yap_InitCPred("is_boolean", 2, is_boolean, 0L);
Yap_InitCPred("is_callable", 2, is_callable, 0L);
Yap_InitCPred("is_boolean", 2, is_boolean, TestPredFlag);
Yap_InitCPred("is_callable", 2, is_callable, TestPredFlag);
CurrentModule = cm;
}