diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

atomic_list_concat/3 (SWI compatibility).

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-06-17 00:28:03 +01:00
parent 57ca6f6406
commit c7b5cc235e
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pl/utils.yap
View File

@ -352,6 +352,15 @@ atom_concat(X,Y,At) :-
atomic_list_concat(L,At) :- atomic_list_concat(L,At) :-
atomic_concat(L, At). atomic_concat(L, At).
atomic_list_concat(L, El, At) :-
'$add_els'(L,El,LEl),
atomic_concat(LEl, At).
'$add_els'([A,B|L],El,[A,El|NL]) :- !,
'$add_els'([B|L],El,NL).
'$add_els'(L,_,L).
atomic_concat(X,Y,At) :- atomic_concat(X,Y,At) :-
( (
nonvar(X), nonvar(Y) nonvar(X), nonvar(Y)