~ 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