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

[PATCH-YAP 4/4] ISO: quote atoms starting with /* (7.10.5 d)

Browse Source 
from ulrich neumerkel
This commit is contained in:
Vitor Santos Costa 2010-11-21 21:53:58 +00:00
parent 1b36c79733
commit 86d0a251b5
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/write.c
View File

@ -285,6 +285,8 @@ legalAtom(unsigned char *s) /* Is this a legal atom ? */
return (*++s == ']' && !(*++s));
else if (ch == '{')
return (*++s == '}' && !(*++s));
else if (ch == '/')
return (*++s != '*');
else if (Yap_chtype[ch] == SL)
return (!*++s);
else if ((ch == ',' || ch == '.') && !s[1])