diff --git a/src/core/roguedefs.h b/src/core/roguedefs.h
index 3dd92b5..257798a 100644
--- a/src/core/roguedefs.h
+++ b/src/core/roguedefs.h
@@ -10,6 +10,10 @@ enum Directions : unsigned short {
 	WEST = 0x8,
 };
 
+#define casel(M_switch, M_case)\
+case M_case:\
+M_switch##_case_##M_case
+
 typedef SDL_Point Tile;
 typedef SDL_Point Chunk;
 typedef unsigned Sprite;