fix singletons _

This commit is contained in:
Vítor Santos Costa 2013-11-21 22:48:27 +00:00
parent 7c48eb8ff7
commit 02526db2d1

View File

@ -214,7 +214,7 @@ static Term
Singletons(VarEntry *p,Term l USES_REGS)
{
if (p != NULL) {
if (strcmp(p->VarRep, "_") != 0 && p->refs == 1) {
if (p->VarRep && p->VarRep[0] != '_' && p->refs == 1) {
Term t[2];
Term o;