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

move to Yap-4.5.7

Browse Source 
Fix clause size


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1236 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2005-01-28 23:14:41 +00:00
parent be638d705c
commit 2ce853ec5f
15 changed files with 101 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
pl/utils.yap
View File

@@ -477,18 +477,15 @@ garbage_collect_atoms :-
'$good_character_code'(X) :- integer(X), X > -2, X < 256.
atom_concat(X,Y,At) :-
atom(At), !,
var(X), var(Y), !,
atom_length(At,Len),
'$atom_contact_split'(At,0,Len,X,Y).
/* Let atom_chars do our error handling */
atom_concat(X,Y,At) :-
atom_codes(X,S1),
atom_codes(Y,S2),
'$append'(S1,S2,S),
atom_codes(At,S).
atom_concat([X,Y],At).
atomic_concat(X,Y,At) :-
atom(At), !,
var(X), var(Y), !,
atom_length(At,Len),
'$atom_contact_split'(At,0,Len,X,Y).
/* Let atom_chars do our error handling */