~ 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