errors

2016-10-28 12:23:51 -05:00
parent 8f72db3b56
commit c959ceeb1d
2 changed files with 2 additions and 1 deletions
--- a/C/atomic.c
+++ b/C/atomic.c
@@ -442,6 +442,7 @@ restart_aux:
 static Int atom_codes(USES_REGS1) {
  Term t1;
  t1 = Deref(ARG1);
+  LOCAL_Error_TYPE = 0;
 restart_aux:
  if (IsAtomTerm(t1)) {
    Term tf = Yap_AtomToListOfCodes(t1 PASS_REGS);