-#define CHECK_CUTBUFFER(symbol) do { \
- CHECK_SYMBOL (symbol); \
- if (! (EQ (symbol, QCUT_BUFFER0) || \
- EQ (symbol, QCUT_BUFFER1) || \
- EQ (symbol, QCUT_BUFFER2) || \
- EQ (symbol, QCUT_BUFFER3) || \
- EQ (symbol, QCUT_BUFFER4) || \
- EQ (symbol, QCUT_BUFFER5) || \
- EQ (symbol, QCUT_BUFFER6) || \
- EQ (symbol, QCUT_BUFFER7))) \
- signal_simple_error ("Doesn't name a cutbuffer", symbol); \
-} while (0)
+#define CHECK_CUTBUFFER(symbol) \
+ { CHECK_SYMBOL (symbol); \
+ if (!EQ((symbol),QCUT_BUFFER0) && !EQ((symbol),QCUT_BUFFER1) && \
+ !EQ((symbol),QCUT_BUFFER2) && !EQ((symbol),QCUT_BUFFER3) && \
+ !EQ((symbol),QCUT_BUFFER4) && !EQ((symbol),QCUT_BUFFER5) && \
+ !EQ((symbol),QCUT_BUFFER6) && !EQ((symbol),QCUT_BUFFER7)) \
+ signal_error (Qerror, list2 (build_string ("Doesn't name a cutbuffer"), \
+ (symbol))); \
+ }