From c2e29efbc70766ee69021020cdbb141a9651a2d8 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Thu, 5 Dec 2013 21:25:06 +0000
Subject: [PATCH] fix types

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

diff --git a/os/pl-text.c b/os/pl-text.c
index ad71c1ddb..bf6672ad4 100644
--- a/os/pl-text.c
+++ b/os/pl-text.c
@@ -160,7 +160,7 @@ PL_get_text__LD(term_t l, PL_chars_t *text, int flags ARG_LD)
 
   if ( (flags & CVT_ATOM) && isAtom(w) )
 #if __YAP_PROLOG__
-    { if ( !get_atom_text(atomFromTerm(w), text) )
+    { if ( !get_atom_ptr_text(AtomOfTerm(w), text) )
 #else
     { if ( !get_atom_text(w, text) )
 #endif