fix error where \* ( could be scanned as \+( (obs from Paulo Moura).

2010-02-18 09:19:29 +00:00 · 2010-02-18 09:19:29 +00:00 · c21f178b36
commit c21f178b36
parent f5bba7b8f7
1 changed files with 2 additions and 0 deletions
--- a/C/scanner.c
+++ b/C/scanner.c
@ -1171,6 +1171,8 @@ Yap_tokenizer(int inp_stream, Term *tposp)
 	t->Tok = Ord(kind = Name_tok);
 	if (ch == '(')
 	  solo_flag = FALSE;
+	else
+	  solo_flag = TRUE;
      }
      break;