fix style check on reconsulting.

2011-01-20 11:50:08 -06:00 · 2011-01-20 11:50:08 -06:00 · d593f99c13
parent 75703ed89a
commit d593f99c13
1 changed files with 1 additions and 1 deletions
--- a/pl/checker.yap
+++ b/pl/checker.yap
@ -149,7 +149,7 @@ no_style_check([H|T]) :- no_style_check(H), no_style_check(T).
 	;
 	    get_value('$syntaxcheckmultiple',on)
 	)),
-	recorded('$reconsulting',File,_),
+	nb_getval('$consulting_file',File),
 	'$xtract_head'(T,M,NM,_,F,A),
 	\+ (
 	    % allow duplicates if we are not the last predicate to have