get rid of debugging messages

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

library/lineutils.yap

@@ -1,6 +1,7 @@
 :- module(line_utils,
 	  [search_for/3,
 	   scan_natural/3,
+	   scan_integer/3,
 	   split/3
 	  ]).
 
@@ -12,7 +13,11 @@ search_for(C) --> [C], !.
 search_for(C) --> [_],
 	search_for(C).
 
-scan_natural(N) -->
+scan_integer(N) -->
+	"-", !,
+	scan_natural(0, N0),
+	N is -N0.
+scan_integer(N) -->
 	scan_natural(0, N).
 
 scan_natural(N0,N) -->

pl/consult.yap

@@ -297,7 +297,6 @@ use_module(M,F,Is) :-
 	'$show_consult_level'(Level1),
 	% it will be done after we leave the current consult level.
 	Level is Level1-1,
-	format(user_error,'add~w~n',[G]),
 	recorda('$initialisation',do(Level,G),_),
 	fail.
 '$initialization'(_).