From 0f8650bfa3b7ca81283cff7560438ac75fb2206b Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 30 Mar 2006 01:12:38 +0000
Subject: [PATCH] get rid of debug code

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1584 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/boot.yap | 22 ----------------------
 1 file changed, 22 deletions(-)

diff --git a/pl/boot.yap b/pl/boot.yap
index f60d0c970..de007c9a3 100644
--- a/pl/boot.yap
+++ b/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
 % cuts are compiled right with co-routining.
 %