id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	difficulty
678	bug in specialized-io egg	felix winkelmann	Jeronimo Pellegrini	"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!""))))

}}}
"	defect	closed	major		extensions	4.7.x	worksforme	specialized-io