get rid of debug code
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1584 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
79c0a8cc27
commit
0f8650bfa3
22
pl/boot.yap
22
pl/boot.yap
@ -15,28 +15,6 @@
|
|||||||
* *
|
* *
|
||||||
*************************************************************************/
|
*************************************************************************/
|
||||||
|
|
||||||
tomic_concat(X,Y,At) :-
|
|
||||||
(
|
|
||||||
nonvar(X), nonvar(Y)
|
|
||||||
->
|
|
||||||
atomic_concat([X,Y],At)
|
|
||||||
;
|
|
||||||
atom(At) ->
|
|
||||||
atom_length(At,Len),
|
|
||||||
'$atom_contact_split'(At,0,Len,X,Y)
|
|
||||||
;
|
|
||||||
number(At) ->
|
|
||||||
number_codes(At,Codes),
|
|
||||||
'$append'(X0,Y0,Codes),
|
|
||||||
name(X,X0),
|
|
||||||
name(Y,Y0)
|
|
||||||
;
|
|
||||||
var(At) ->
|
|
||||||
'$do_error'(instantiation_error,atomic_concat(X,Y,At))
|
|
||||||
;
|
|
||||||
'$do_error'(type_error(atomic,At),atomic_concant(X,Y,At))
|
|
||||||
).
|
|
||||||
|
|
||||||
% This one should come first so that disjunctions and long distance
|
% This one should come first so that disjunctions and long distance
|
||||||
% cuts are compiled right with co-routining.
|
% cuts are compiled right with co-routining.
|
||||||
%
|
%
|
||||||
|
Reference in New Issue
Block a user