replace $append by lists:append

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2140 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

pl/grammar.yap

@@ -94,7 +94,7 @@
 
 '$extend'(More, OldT, NewT) :-
 	OldT =.. OldL,
-	'$append'(OldL, More, NewL),
+	lists:append(OldL, More, NewL),
 	NewT =.. NewL.
 
 
@@ -133,12 +133,12 @@ phrase(P, S0, S) :-
 phrase([], S0, S) :- !,
 	S0 = S.
 phrase([H|T], S0, S) :- !,
-	'$append'([H|T], S, S0).
+	lists:append([H|T], S, S0).
 phrase(Phrase, S0, S) :-
 	'$t_body'(Phrase, _, last, S0, S, Goal), !,
 	'$execute'(Goal).
 
-'$append'([], L, L) .
-'$append'([H|T], L, [H|R]) :-
-	'$append'(T, L, R).
+lists:append([], L, L) .
+lists:append([H|T], L, [H|R]) :-
+	lists:append(T, L, R).
 

pl/load_foreign.yap

@@ -60,10 +60,10 @@ load_foreign_files(Objs,Libs,Entry) :-
 
 '$process_obj_suffix'(ObjCodes,ObjCodes) :-
 	'$obj_suffix'(ObjSuffix),
-	'$append'(_,ObjSuffix,ObjCodes), !.
+	lists:append(_,ObjSuffix,ObjCodes), !.
 '$process_obj_suffix'(ObjCodes,NewObjCodes) :-
 	'$obj_suffix'(ObjSuffix),
-	'$append'(ObjCodes,ObjSuffix,NewObjCodes).
+	lists:append(ObjCodes,ObjSuffix,NewObjCodes).
 
 '$checklib_prefix'(Cs,Cs) :- '$rooted_path'(Cs), !.
 '$checklib_prefix'([0'l,0'i,0'b|NewObjCodes],[0'l,0'i,0'b|NewObjCodes]) :- !.

pl/modules.yap

@@ -637,7 +637,7 @@ abolish_module(_).
 	recorded('$lf_loaded','$lf_loaded'(TopFile,TopModule,_),_),
 	recorded('$module', '$module'(CurrentFile, Module, ModExports), Ref),
 	erase(Ref),
-	'$append'(ModExports, MyExports, AllExports),
+	lists:append(ModExports, MyExports, AllExports),
 	recorda('$module', '$module'(CurrentFile, Module, AllExports), _),
 	'$import'(MyExports, Module, TopModule).
 

pl/utils.yap

@@ -594,7 +594,7 @@ atomic_concat(X,Y,At) :-
 	;
 	  number(At) ->
 	  number_codes(At,Codes),
-	  '$append'(X0,Y0,Codes),
+	  lists:append(X0,Y0,Codes),
 	  name(X,X0),
 	  name(Y,Y0)
 	;