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
Original issue reported on code.google.com by
ktakash...@gmail.com
on 12 May 2012 at 3:32