singleton

This commit is contained in:
Vítor Santos Costa 2018-10-08 19:03:29 +01:00
parent 50feadc341
commit 48e398576f

View File

@ -754,7 +754,7 @@ static bool complete_clause_processing(FEnv *fe, TokEntry *tokstart) {
v_vnames = get_varnames(fe, tokstart);
else
v_vnames = 0L;
if (fe->t && trueLocalPrologFlag(SINGLE_VAR_WARNINGS_FLAG)) {
if (fe->t && trueGlobalPrologFlag(SINGLE_VAR_WARNINGS_FLAG)) {
warn_singletons(fe, tokstart);
}
if (fe->t && fe->tcomms)