fix singletons _
This commit is contained in:
parent
7c48eb8ff7
commit
02526db2d1
@ -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;
|
||||
|
||||
|
Reference in New Issue
Block a user