diff --git a/C/atomic.c b/C/atomic.c index aa7ff51e3..45c21290b 100644 --- a/C/atomic.c +++ b/C/atomic.c @@ -2115,4 +2115,8 @@ Yap_InitAtomPreds(void) Yap_InitCPred("atomics_to_string", 2, p_atomics_to_string2, 0); Yap_InitCPred("atomics_to_string", 3, p_atomics_to_string3, 0); Yap_InitCPred("get_string_code", 3, p_get_string_code3, 0); + /* hiding and unhiding some predicates */ + Yap_InitCPred("hide", 1, p_hide, SafePredFlag|SyncPredFlag); + Yap_InitCPred("unhide", 1, p_unhide, SafePredFlag|SyncPredFlag); + Yap_InitCPred("$hidden", 1, p_hidden, SafePredFlag|SyncPredFlag); } diff --git a/C/stdpreds.c b/C/stdpreds.c index 639205ce7..e0df96d1f 100755 --- a/C/stdpreds.c +++ b/C/stdpreds.c @@ -1920,10 +1920,6 @@ Yap_InitCPreds(void) /* Accessing and changing the flags for a predicate */ Yap_InitCPred("$flags", 4, p_flags, SyncPredFlag); Yap_InitCPred("$set_flag", 4, p_set_flag, SyncPredFlag); - /* hiding and unhiding some predicates */ - Yap_InitCPred("hide", 1, p_hide, SafePredFlag|SyncPredFlag); - Yap_InitCPred("unhide", 1, p_unhide, SafePredFlag|SyncPredFlag); - Yap_InitCPred("$hidden", 1, p_hidden, SafePredFlag|SyncPredFlag); Yap_InitCPred("$has_yap_or", 0, p_has_yap_or, SafePredFlag|SyncPredFlag); Yap_InitCPred("$has_eam", 0, p_has_eam, SafePredFlag|SyncPredFlag); #ifndef YAPOR