more atom and string

2013-12-06 15:08:35 +00:00
parent 7e58cf7755
commit 35f6ecad66
5 changed files with 426 additions and 136 deletions
--- a/C/write.c
+++ b/C/write.c
@@ -437,7 +437,7 @@ legalAtom(unsigned char *s)			/* Is this a legal atom ? */
 	return (s[1] == '}' && !s[2]);
    } else if (Yap_chtype[ch] == SL) {
      return (!s[1]);
-    } else if ((ch == ',' || ch == '.') && !s[1]) {
+    } else if ((ch == ',' /* || ch == '.' */) && !s[1]) {
      return FALSE;
    } else {
      if (ch == '/') {