[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Chicken Trac
Subject: [Chicken-janitors] #678: bug in specialized-io egg
Date: Wed, 31 Aug 2011 10:45:12 -0000

#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)) ==
                                  "     return(1);"
                                  "     return(0);")
                 c port))
         (specialized-io-error "write-one-char: failed!"))))


Ticket URL: <>
Chicken Scheme <>
Chicken Scheme is a compiler for the Scheme programming language.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]