From cc686d8e8f92c94abcf2903571b0d96512317afd Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Tue, 21 Oct 2008 23:00:10 -0400
Subject: [PATCH] utf16-coded output port do not produce a BOM now.

---
 scheme/ikarus.io.ss  | 12 ++++++------
 scheme/last-revision |  2 +-
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss
index 35f45f0..2a74fe1 100644
--- a/scheme/ikarus.io.ss
+++ b/scheme/ikarus.io.ss
@@ -426,7 +426,7 @@
       [(eq? 'utf-8-codec (transcoder-codec x))
        (fxior textual-output-port-bits fast-u7-text-tag)]
       [(eq? 'utf-16-codec (transcoder-codec x))
-       (fxior textual-output-port-bits init-u16-text-tag)]
+       (fxior textual-output-port-bits fast-u16be-text-tag)]
       [else (die who "unsupported codec" (transcoder-codec x))]))
 
   (define open-bytevector-input-port
@@ -2045,11 +2045,11 @@
                     [(raise)
                      (raise (make-i/o-encoding-error p c))]
                     [else (die who "BUG: invalid error handling mode" p)])])))]
-          [(eq? m init-put-utf16-tag) 
-           (put-byte! p #xFE who)
-           (put-byte! p #xFF who)
-           ($set-port-attrs! p fast-put-utf16be-tag)
-           (do-put-char p c who)]
+          ;[(eq? m init-put-utf16-tag) 
+          ; (put-byte! p #xFE who)
+          ; (put-byte! p #xFF who)
+          ; ($set-port-attrs! p fast-put-utf16be-tag)
+          ; (do-put-char p c who)]
           [(eq? m fast-put-utf16be-tag)
            (let ([n (char->integer c)])
              (cond
diff --git a/scheme/last-revision b/scheme/last-revision
index 9d1731d..138f1a9 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1642
+1643