yap

2018-12-11 12:50:52 +00:00
parent afe5780fc1
commit 7e84455117
8 changed files with 47 additions and 54 deletions
--- a/os/readterm.c
+++ b/os/readterm.c
@@ -904,7 +904,7 @@ static Term syntax_error(TokEntry *errtok, int sno, Term cmod, Int newpos, bool
      v_vnames = get_varnames(fe, tokstart);
    else
      v_vnames = 0L;
-    if (fe->t && trueGlobalPrologFlag(SINGLE_VAR_WARNINGS_FLAG))
+    if (fe->t && fe->reading_clause && trueGlobalPrologFlag(SINGLE_VAR_WARNINGS_FLAG))
      {
        warn_singletons(fe, tokstart);
      }