From 15b5789e8d0c1d0dd5df90d0f0f81fccff83933a Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 4 Oct 2018 11:11:16 -0400 Subject: [PATCH] Revert previous changed due to issues with SRFI 143 Unit tests fail with the previous change in place... --- include/cyclone/types.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/include/cyclone/types.h b/include/cyclone/types.h index a637a9b1..06cf71ca 100644 --- a/include/cyclone/types.h +++ b/include/cyclone/types.h @@ -537,7 +537,7 @@ typedef uint32_t char_type; * Convert from an integer to an object. */ //#define obj_int2obj(n) ((void *) ((((long)(n))*(long)(1uL<<1)) | 1)) -#define obj_int2obj(c) ((void *)((((uintptr_t)c)<<1) | 1)) +#define obj_int2obj(c) ((void *)((((long)c)<<1) | 1)) /** * Determine if the object is a char.