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

be less enthusiastsis about writing (op).

Browse Source
This commit is contained in:
Vitor Santos Costa
2010-02-26 14:14:10 +00:00
parent b4481ca98c
commit 5778730b62
3 changed files with 19 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
C/write.c
View File

@@ -214,12 +214,12 @@ legalAtom(unsigned char *s) /* Is this a legal atom ? */
static int LeftOpToProtect(Atom at, int p)
{
return Yap_IsOp(at);
return Yap_IsOpMaxPrio(at) > p;
}
static int RightOpToProtect(Atom at, int p)
{
return Yap_IsOp(at);
return Yap_IsOpMaxPrio(at) > p;
}
static wtype