merge text to term routines

2016-12-04 12:52:42 -06:00
parent b07a35a993
commit 6a4dbd91ec
11 changed files with 1249 additions and 1359 deletions
--- a/os/writeterm.c
+++ b/os/writeterm.c
@@ -716,7 +716,9 @@ static Int term_to_atom(USES_REGS1) {
    at = AtomOfTerm(t2);
  }
  ctl = TermNil;
-  return (rc = Yap_AtomToTerm(at, ctl)) && Yap_unify(rc, ARG1);
+  return (rc = Yap_BufferToTerm(RepAtom(at)->UStrOfAE,
+                                strlen(RepAtom(at)->StrOfAE), ctl)) &&
+         Yap_unify(rc, ARG1);
 }

 void Yap_InitWriteTPreds(void) {