more SWI compatibility changes.

2011-02-11 01:22:07 +00:00
parent 02c791fc3d
commit b475be5692
7 changed files with 22 additions and 17 deletions
--- a/packages/PLStream/pl-text.c
+++ b/packages/PLStream/pl-text.c
@@ -126,7 +126,7 @@ PL_get_text__LD(term_t l, PL_chars_t *text, int flags ARG_LD)
 { word w = valHandle(l);

  if ( (flags & CVT_ATOM) && isAtom(w) )
-  { if ( !get_atom_text(w, text) )
+    { if ( !get_atom_text(atomFromTerm(w), text) )
      goto maybe_write;
  } else if ( (flags & CVT_STRING) && isString(w) )
  { if ( !get_string_text(w, text PASS_LD) )