update chr

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

LGPL/chr/chr_translate_bootstrap2.chr

@@ -1,4 +1,4 @@
-/*  $Id: chr_translate_bootstrap2.chr,v 1.2 2007-10-16 23:17:03 vsc Exp $
+/*  $Id: chr_translate_bootstrap2.chr,v 1.3 2008-03-13 14:38:01 vsc Exp $
 
     Part of CHR (Constraint Handling Rules)
 
@@ -113,7 +113,7 @@
 	  [ chr_translate/2		% +Decls, -TranslatedDecls
 	  ]).
 %% SWI begin
-:- use_module(library(lists),[append/3,member/2,delete/3,reverse/2,permutation/2]).
+:- use_module(library(lists),[append/3,append/2,member/2,delete/3,reverse/2,permutation/2,min_list/2]).
 :- use_module(library(ordsets)).
 %% SWI end
 
@@ -410,7 +410,7 @@ store_management_preds(Constraints,Clauses) :-
 		      ,Clauses).
 
 
-%% SWI begin vsc: yap changes
+%% SWI begin
 specific_declarations([(:- use_module('chr_runtime'))
 		      ,(:- use_module('chr_hashtable_store'))
 		      ,(:- style_check(-discontiguous))
@@ -3558,6 +3558,8 @@ list2disj([G|Gs],C) :-
 		list2disj(Gs,R)
 	).
 
+:- if(current_prolog_flag(dialect, swi)).
+
 atom_concat_list([X],X) :- ! .
 atom_concat_list([X|Xs],A) :-
 	atom_concat_list(Xs,B),
@@ -3577,6 +3579,12 @@ make_atom(A,AA) :-
 	  number_codes(A,AL),
 	  atom_codes(AA,AL)
 	).
+:- else.
+
+atom_concat_list(L,X) :-
+	atomic_concat(L, X).
+
+:- endif.
 
 
 make_name(Prefix,F/A,Name) :-