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

vars

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-01-31 10:47:00 +00:00
parent cdad87a6fc
commit a143f07ca0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/atoms.yap
View File

@ -50,7 +50,7 @@ atom_concat(Xs,At) :-
% just slice first atom % just slice first atom
'$atom_concat_constraints'([At0|Xs], 0, At, Unbound) :- '$atom_concat_constraints'([At0|Xs], 0, At, Unbound) :-
atom(At0), !, atom(At0), !,
sub_atom(At0, 0, _Sz, L, Ata ), sub_atom(At0, 0, _Sz, L, _Ata ),
sub_atom(At, _, L, 0, Atr ), %remainder sub_atom(At, _, L, 0, Atr ), %remainder
'$atom_concat_constraints'(Xs, 0, Atr, Unbound). '$atom_concat_constraints'(Xs, 0, Atr, Unbound).
% first hole: Follow says whether we have two holes in a row, At1 will be our atom % first hole: Follow says whether we have two holes in a row, At1 will be our atom