[Chicken-janitors] #678: bug in specialized-io egg

[Chicken Trac]

#678: bug in specialized-io egg
----------------------------+-----------------------------------------------
 Reporter:  felix           |       Owner:       
     Type:  defect          |      Status:  new  
 Priority:  major           |   Milestone:       
Component:  extensions      |     Version:  4.7.x
 Keywords:  specialized-io  |  
----------------------------+-----------------------------------------------
 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!"))))

 }}}

-- 
Ticket URL: <http://bugs.call-cc.org/ticket/678>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.