~ chicken-core (chicken-5) 0f385bb9c61931bff1eaa212fa8dd83fcbae870d


commit 0f385bb9c61931bff1eaa212fa8dd83fcbae870d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jun 1 02:58:28 2011 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jun 1 02:58:28 2011 -0400

    added support for missing int32 type in c-backend (thanks to Jim Ursetto)

diff --git a/c-backend.scm b/c-backend.scm
index e4358db1..1d04f011 100644
--- a/c-backend.scm
+++ b/c-backend.scm
@@ -1249,7 +1249,7 @@
     (case type
       ((scheme-object) "(")
       ((char unsigned-char) "C_character_code((C_word)")
-      ((byte int unsigned-int unsigned-int32 unsigned-byte) "C_unfix(")
+      ((byte int int32 unsigned-int unsigned-int32 unsigned-byte) "C_unfix(")
       ((short) "C_unfix(")
       ((unsigned-short) "(unsigned short)C_unfix(")
       ((unsigned-long) "C_num_to_unsigned_long(")
Trap