~ chicken-core (chicken-5) 6714cd5265607ee5bf7f988300f096922284dba0

commit 6714cd5265607ee5bf7f988300f096922284dba0
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jun 15 08:00:15 2011 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jun 15 08:00:15 2011 -0400

    void ftype maps to undefined stype

diff --git a/support.scm b/support.scm
index c522cad6..3d41d9bb 100644
--- a/support.scm
+++ b/support.scm
@@ -1167,6 +1167,7 @@
 (define (foreign-type->scrutiny-type t mode) ; MODE = 'arg | 'result
   (let ((ft (final-foreign-type t)))
     (case ft
+      ((void) 'undefined)
       ((char unsigned-char) 'char)
       ((int unsigned-int short unsigned-short byte unsigned-byte int32 unsigned-int32)
        'fixnum)