From 817663588da8f0bd0c57106be966c651d2f8b944 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 23 Jan 2008 22:22:42 +0000
Subject: [PATCH] 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 | 7 ++++++-
 pl/consult.yap        | 1 -
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/library/lineutils.yap b/library/lineutils.yap
index 7bb0b594f..837fbb897 100644
--- a/library/lineutils.yap
+++ b/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) -->
diff --git a/pl/consult.yap b/pl/consult.yap
index b18285427..1eb48118d 100644
--- a/pl/consult.yap
+++ b/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'(_).