Transcoding (error-handling-mode raise) record-constructor bug

[Derick Eddington]

Also, there's a typo in "record-condtructor".

Ikarus Scheme version 0.0.3+ (revision 1522, build 2008-06-25)
Copyright (c) 2006-2008 Abdulaziz Ghuloum

> (call-with-bytevector-output-port
    (lambda (bvop) (put-char bvop #\λ))
    (make-transcoder (latin-1-codec) (eol-style none) (error-handling-mode raise)))
Unhandled exception
 Condition components:
   1. &assertion
   2. &who: record-condtructor
   3. &message: "insufficient arguments"
   4. &irritants: (())
>
> ;;; These are okay:
>
> (call-with-bytevector-output-port
    (lambda (bvop) (put-char bvop #\λ))
    (make-transcoder (latin-1-codec) (eol-style none) (error-handling-mode replace)))
#vu8(63)
>
> (call-with-bytevector-output-port
    (lambda (bvop) (put-char bvop #\λ))
    (make-transcoder (latin-1-codec) (eol-style none) (error-handling-mode ignore)))
#vu8()
>

[Abdulaziz Ghuloum (aghuloum)]

Fixed in 1524. Thanks!

(call-with-bytevector-output-port
    (lambda (bvop) (put-char bvop #\λ))
    (make-transcoder (latin-1-codec) (eol-style none) (error-handling-mode raise)))
Unhandled exception
 Condition components:
   1. &i/o-encoding:
       port: #<output-port (textual) "*bytevector-output-port*">
       char: #\λ