~ 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