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

get rid of debug messages.

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-05-28 16:59:52 +01:00
parent 8d93e8f9b9
commit 0645040602
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/consult.yap
View File

@ -321,7 +321,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,
writeln(+Level:G),
recordz('$initialisation',do(Level,G),_), recordz('$initialisation',do(Level,G),_),
fail. fail.
'$initialization'(_). '$initialization'(_).
@ -393,7 +392,6 @@ use_module(M,F,Is) :-
(recorded('$initialisation',do(Level,G),R), erase(R), G\='$'), (recorded('$initialisation',do(Level,G),R), erase(R), G\='$'),
LGs), LGs),
lists:member(G,LGs), lists:member(G,LGs),
writeln(doing:Level:G),
nb_getval('$system_mode', OldMode), nb_getval('$system_mode', OldMode),
( OldMode == on -> '$exit_system_mode' ; true ), ( OldMode == on -> '$exit_system_mode' ; true ),
% run initialization under user control (so allow debugging this stuff). % run initialization under user control (so allow debugging this stuff).