fix $$cut_by and $cut_by

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1739 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

pl/boot.yap

@@ -79,7 +79,7 @@ true :- true.
 
  % encapsulate $cut_by because of co-routining.
  %
- '$$cut_by'(X) :- '$cut_by'(X).
+ '$cut_by'(X) :- '$$cut_by'(X).
 
  % Start file for yap
 
@@ -738,7 +738,7 @@ not(G) :-    \+ '$execute'(G).
 '$call'(not(X), _CP, _G0, _M) :- !,
 	\+ '$execute'(M:X).
 '$call'(!, CP, _,_) :- !,
-	'$$cut_by'(CP).
+	'$cut_by'(CP).
 '$call'([A|B], _, _, M) :- !,
 	'$csult'([A|B], M).
 '$call'(G, CP, G0, CurMod) :-

pl/debug.yap

@@ -390,7 +390,7 @@ debugging :-
 	      (
 		Det == true
 		->
-		'$$cut_by'(CP)
+		'$cut_by'(CP)
 		;
 		true
 	      ),