bug in specialized-io egg

[felix winkelmann]

The foreign code should probably be declared to return int:

(define write-one-char
  (lambda (c port)
    (if (fx= 1 ((foreign-lambda* void ((char var)
                                       (scheme-object port))
                                 "#include <stdio.h> \n"
                                 "if (fputc (var, C_port_file(port)) == EOF)"
                                 "     return(1);"
                                 "else"
                                 "     return(0);")
                c port))
        (specialized-io-error "write-one-char: failed!"))))

[Jeronimo Pellegrini]

Hi,

Indeed, the void declaration made no sense!
It's fixed in trunk and in version 1.2.

However, specialized-io is unsafe in order to be fast, and trying to write to
something that is not a port will crash the program.

The verification done is for the case when one tries to write to a closed port
or to an input port.