-bad typing in SWI emulation.

2015-02-13 12:20:46 +00:00
parent dd22039a59
commit 3bcde55a77
5 changed files with 17 additions and 14 deletions
--- a/os/pl-prologflag.c
+++ b/os/pl-prologflag.c
@@ -198,7 +198,7 @@ setPrologFlag(const char *name, int flags, ...)
      text.length    = strlen(text.text.t);
      text.canonical = FALSE;

-      f->value.a = textToAtom(&text);	/* registered: ok */
+      f->value.a = YAP_SWIAtomFromAtom(textToAtom(&text));	/* registered: ok */

      PL_free_text(&text);