diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix error msg

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-12-16 03:40:37 -06:00
parent cd18a69561
commit cacdd173b5
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/scanner.c
View File

@ -1206,7 +1206,10 @@ Term Yap_tokRep(void *tokptre) {
case eot_tok: case eot_tok:
return MkAtomTerm(Yap_LookupAtom("EOT")); return MkAtomTerm(Yap_LookupAtom("EOT"));
case Ponctuation_tok: case Ponctuation_tok:
return info; if (info == Terml)
return TermBeginBracket;
else
return info;
} }
return TermDot; return TermDot;
} }
@ -1220,6 +1223,8 @@ const char *Yap_tokText(void *tokptre) {
case eot_tok: case eot_tok:
return "EOT"; return "EOT";
case Ponctuation_tok: case Ponctuation_tok:
if (info == Terml)
return "(";
case Error_tok: case Error_tok:
case BQString_tok: case BQString_tok:
case String_tok: case String_tok: