From ed6385a3e704a27c207ffbe0ea084ec21d65f22b Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Mon, 15 Aug 2016 14:51:46 -0500
Subject: [PATCH] ugh

---
 os/writeterm.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/os/writeterm.c b/os/writeterm.c
index 25d6906c3..5b61975f7 100644
--- a/os/writeterm.c
+++ b/os/writeterm.c
@@ -719,7 +719,7 @@ static Int term_to_atom(USES_REGS1) {
     at = AtomOfTerm(t2);
   }
   ctl = TermNil;
-  return Yap_AtomToTerm(at, ctl) == 0L && Yap_unify(rc, ARG1);
+  return (rc = Yap_AtomToTerm(at, ctl)) && Yap_unify(rc, ARG1);
 }
 
 void Yap_InitWriteTPreds(void) {