Custom binary output port does not work properly

[GoogleCodeExporter]

What steps will reproduce the problem?
1.run this script
(import (rnrs))
(define (make-test-binary-port)
  (define (read! bv start count)
    (bytevector-copy! #vu8(1 2 3 4) 0 bv start count)
    count)
  (define (write! bv start count)
    (let loop ((i 0))
      (unless (= i count)
    (display (bytevector-u8-ref bv (+ start i)))
    (loop (+ i 1))))
    count)
  (make-custom-binary-input/output-port "test port" read! write! #f #f #f))

(let* ((bin (make-test-binary-port))
       (tin (transcoded-port bin (native-transcoder))))
  (display "test" tin) (newline)
  (display 'done)(newline))

What is the expected output?
116101115116
done

What do you see instead?
116101115116proc = (#<unknown datum> ▒ . 4)

What version of the product are you using? On what operating system?
0.2.7 on Cygwin (Windows XP)

Please provide any additional information below.

Original issue reported on code.google.com by ktakash...@gmail.com on 12 May 2012 at 3:32

[GoogleCodeExporter]

Original comment by hige...@gmail.com on 13 May 2012 at 4:29

[GoogleCodeExporter]

Original comment by hige...@gmail.com on 16 May 2012 at 1:32

• Changed state: Accepted

[GoogleCodeExporter]

Original comment by hige...@gmail.com on 20 May 2012 at 8:29

• Added labels: Milestone-Release0.2.8