Hide and Seek

.gitignore

@@ -24,7 +24,6 @@ tmtags*
 .zedstate
 config.h
 Yap.h
-*Makefile
 YapConfig.h
 YapTermConfig.h
 .graffiti
@@ -48,7 +47,6 @@ groups
 .Rhistory
 .zedstate
 .graffiti
-*Makefile
 .kateproject
 autom4te.cache
 *rej
@@ -61,7 +59,6 @@ JIT/HPP/bkp
 cmake_install.cmake
 cmake_clean.cmake
 *.build
-Makefile
 C/myabsmi.c
 *.ctags#
 *.hs
@@ -133,3 +130,7 @@ packages/CLPBN/horus/hcli
 packages/bdd/simplecudd/problogbdd
 
 packages/bdd/cudd_config.h
+Makefile
+build
+Debug
+debug

C/cdmgr.c

@@ -2144,7 +2144,7 @@ static Int p_is_no_trace(USES_REGS1) { /* '$undefined'(P,Mod)	 */
   if (EndOfPAEntr(pe))
     return true;
   PELOCK(36, pe);
-  if (pe->PredFlags & (NoTracePredFlag|HiddenPredFlag)) {
+  if (pe->PredFlags & (NoTracePredFlag | HiddenPredFlag)) {
     UNLOCKPE(57, pe);
     return true;
   }
@@ -3022,7 +3022,7 @@ restart_system_pred:
     return false;
   if (EndOfPAEntr(pe))
     return false;
-  pe->PredFlags |= (NoSpyPredFlag|NoTracePredFlag);
+  pe->PredFlags |= (HiddenPredFlag / NoSpyPredFlag | NoTracePredFlag);
   return true;
 }
 

library/ytest/preds.yap

@@ -36,9 +36,9 @@
 '$imported_predicate'(G,M,G,M0) :-
     predicate_property(M:G, imported_from(M0)).
 
-'$system_predicate'( call(_), _M) :- !.
-'$system_predicate'( call(_,_), _M) :- !.
-'$system_predicate'(G,M) :-
+'$is_system_predicate'( call(_), _M) :- !.
+'$is_system_predicate'( call(_,_), _M) :- !.
+'$is_system_predicate'(G,M) :-
     predicate_property(M:G, built_in).
 
 '$is_multifile'(G,M) :-
@@ -84,6 +84,6 @@ mt(N,M,A,D) :-
 '$yap_strip_module'(T,M,S) :-
     fully_strip_module(T,M,S).
 
-:- hide( expand_goal ).
+:- hide_predicate( expand_goal ).
 
 :- include(library(boot/meta)).

pl/consult.yap

@@ -432,7 +432,7 @@ load_files(Files,Opts) :-
 	  true
 	).
 '$lf'(user, Mod, _, TOpts) :- !,
-	b_setval('$user_source_file', user,user_input),
+	b_setval('$user_source_file', user),
 	'$do_lf'(Mod, user_input, user_input, user_input, TOpts).
 '$lf'(user_input, Mod, _, TOpts) :- !,
 	b_setval('$user_source_file', user_input),

pl/qly.yap

@@ -259,7 +259,7 @@ qend_program :-
 	 fail.
 '$do_init_state' :-
 	set_value('$user_module',user),
-%	'$protect',
+	'$protect',
 	fail.
 '$do_init_state' :-
 	'$current_module'(prolog),
@@ -537,7 +537,7 @@ qload_module(Mod) :-
       Type == file ->
 	  '$qload_file'(S, File)
     ),
-    !, 
+    !,
     close(S).
 
 '$qload_module'(_S, Mod, _File, _SourceModule) :-

regression/modules/meta_tests.pl

@@ -8,12 +8,12 @@
 a(1).
 b(1).
 
-test member,
-      meta_expand( lists:member(X,[X|Y]), Clause )
+test membe,
+      meta_expand( lists:membe(X,[X|Y]), Clause )
 
       returns
 
-      Clause =@=  ( lists:member(X,[X|Y]) ).
+      Clause =@=  ( lists:membe(X,[X|Y]) ).
 
 test a,
       meta_expand( ( a(X) :- call(X) ) , Clause )