fix error where \* ( could be scanned as \+( (obs from Paulo Moura).
This commit is contained in:
parent
f5bba7b8f7
commit
c21f178b36
@ -1171,6 +1171,8 @@ Yap_tokenizer(int inp_stream, Term *tposp)
|
|||||||
t->Tok = Ord(kind = Name_tok);
|
t->Tok = Ord(kind = Name_tok);
|
||||||
if (ch == '(')
|
if (ch == '(')
|
||||||
solo_flag = FALSE;
|
solo_flag = FALSE;
|
||||||
|
else
|
||||||
|
solo_flag = TRUE;
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user