From d593f99c1371ab8e305dfac1de7d5668495a8dd3 Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Thu, 20 Jan 2011 11:50:08 -0600 Subject: [PATCH] fix style check on reconsulting. --- pl/checker.yap | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pl/checker.yap b/pl/checker.yap index 6e52d9a53..87d8995a8 100644 --- 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