minor fixes

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1946 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-10-08 23:02:16 +00:00
parent 642b498728
commit d4f01ee67b
7 changed files with 201 additions and 16 deletions
--- a/pl/utils.yap
+++ b/pl/utils.yap
@@ -590,6 +590,10 @@ atomic_concat(X,Y,At) :-
 	Len2 is Len1+1,
 	'$atom_contact_split'(At,Len2,Len,X,Y).

+sub_atom(At, Bef, Size, After, SubAt) :-
+	% extract something from an atom
+	atom(At), integer(Bef), integer(Size), !,
+	'$sub_atom_extract'(At, Bef, Size, After, SubAt).
 sub_atom(At, Bef, Size, After, SubAt) :-
 	atom(At), !,
 	atom_codes(At, Atl),