summaryrefslogtreecommitdiff
path: root/libguile/boolean.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/boolean.h')
-rw-r--r--libguile/boolean.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/boolean.h b/libguile/boolean.h
index b7a575a4a..85008579d 100644
--- a/libguile/boolean.h
+++ b/libguile/boolean.h
@@ -64,7 +64,7 @@
/* SCM_BOOL_NOT returns the other boolean.
* The order of ^s here is important for Borland C++ (!?!?!)
*/
-#define SCM_BOOL_NOT(x) ((x) ^ (SCM_BOOL_T ^ SCM_BOOL_F))
+#define SCM_BOOL_NOT(x) SCM_ASSCM(SCM_ASWORD(x) ^ (SCM_ASWORD (SCM_BOOL_T) ^ SCM_ASWORD (SCM_BOOL_F)))