~ chicken-core (chicken-5) 095509cc76f60f4e3554ee5b4202c1e64f1f4f8d


commit 095509cc76f60f4e3554ee5b4202c1e64f1f4f8d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Feb 25 19:38:12 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Feb 25 19:38:12 2010 +0100

    C_text casts to char* in C++ mode (groan)

diff --git a/chicken.h b/chicken.h
index 9022454a..4a89c719 100644
--- a/chicken.h
+++ b/chicken.h
@@ -529,7 +529,12 @@ typedef unsigned __int64   uint64_t;
 #define C_byte                    char
 #define C_uword                   unsigned C_word
 #define C_header                  C_uword
-#define C_text(x)                 x
+
+#ifdef __cplusplus
+# define C_text(x)                ((char *)(x))
+#else
+# define C_text(x)                (x)
+#endif
 
 #define C_TIMER_INTERRUPT_NUMBER  255
 
Trap