use SWI opts for read

2013-11-20 22:30:49 +00:00
parent d75e6b56e5
commit 6d773a3189
5 changed files with 49 additions and 104 deletions
--- a/os/pl-prologflag.c
+++ b/os/pl-prologflag.c
@@ -1005,6 +1005,7 @@ pl_prolog_flag5(term_t key, term_t value,
  }

  fid = PL_open_foreign_frame();
+
  LOCK();
  for(;;)
  { while( (s=advanceTableEnum(e->table_enum)) )
@@ -1032,7 +1033,6 @@ pl_prolog_flag5(term_t key, term_t value,
 #endif
      PL_rewind_foreign_frame(fid);
    }
-
    if ( e->scope == ATOM_local )
    { e->scope = ATOM_global;
      freeTableEnum(e->table_enum);