That was the case before the new IO implementation (say rev 1203 and earlier I think). Now, this is what I got:
$ cat t.ss (import (rnrs)) (let ([p (standard-output-port)]) (put-u8 p 175) (flush-output-port p)) $ ikarus --r6rs-script t.ss | wc 0 1 1
Also: > (port-transcoder (standard-output-port)) #f
That was the case before the new IO implementation (say rev 1203 and earlier I think). Now, this is what I got:
$ cat t.ss output- port)]) output- port p))
(import (rnrs))
(let ([p (standard-
(put-u8 p 175)
(flush-
$ ikarus --r6rs-script t.ss | wc
0 1 1
Also: output- port))
> (port-transcoder (standard-
#f