follow encoding directives

2016-02-22 12:57:46 +00:00
parent df7feea0aa
commit 588ef40a16
2 changed files with 4 additions and 1 deletions
--- a/os/streams.c
+++ b/os/streams.c
@@ -790,7 +790,8 @@ static bool do_set_stream(int sno,
          Atom atEnc = AtomOfTerm(t2);
          GLOBAL_Stream[sno].encoding =
            enc_id(atEnc->StrOfAE, (GLOBAL_Stream[sno].status & HAS_BOM_f ? GLOBAL_Stream[sno].encoding :ENC_OCTET ) );
-        }
+       Yap_DefaultStreamOps( GLOBAL_Stream+sno);
+     }
        break;
      case SET_STREAM_EOF_ACTION: {
        Term t2 = args[SET_STREAM_EOF_ACTION].tvalue;