From c07c5286c08f2842db28004163110b6a664d2c14 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 12 Mar 2008 16:26:51 +0000
Subject: [PATCH] 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      | 10 +++++-----
 pl/load_foreign.yap |  4 ++--
 pl/modules.yap      |  2 +-
 pl/utils.yap        |  2 +-
 4 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/pl/grammar.yap b/pl/grammar.yap
index 82feadcb7..3e61321ea 100644
--- a/pl/grammar.yap
+++ b/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).
 
diff --git a/pl/load_foreign.yap b/pl/load_foreign.yap
index aa02e0d66..963138431 100644
--- a/pl/load_foreign.yap
+++ b/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]) :- !.
diff --git a/pl/modules.yap b/pl/modules.yap
index 393b19e62..4f9573b26 100644
--- a/pl/modules.yap
+++ b/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).
 
diff --git a/pl/utils.yap b/pl/utils.yap
index 9f480592a..07229c9e2 100644
--- a/pl/utils.yap
+++ b/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)
 	;