fix max modules limitation

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1865 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-04-10 22:13:21 +00:00
parent c78a210afc
commit 67738fbbd1
14 changed files with 226 additions and 140 deletions
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -2312,7 +2312,7 @@ p_open (void)
    st->stream_wgetc_for_read = st->stream_wgetc;
  t = MkStream (sno);
  if (open_mode == AtomWrite ) {
-    if (!avoid_bom && !write_bom(sno,st))
+    if (needs_bom && !write_bom(sno,st))
      return FALSE;
  } else if (open_mode == AtomRead &&
 	     !avoid_bom &&