diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

get rid of debugging messages

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2057 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-01-23 22:22:42 +00:00
parent 1a2d89a423
commit 817663588d
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
library/lineutils.yap
View File

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

1
pl/consult.yap
View File

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