Move TYPESIG and CASE macros and undef them

object.c

@@ -78,8 +78,6 @@ typedef enum {
 } type_t;
 
 #define NTYPES (Map + 1)
-#define TYPESIG(L, R) L*NTYPES+R
-#define CASE(L, R) case TYPESIG(L, R)
 
 union object;
 typedef union object *oop;

parse.leg

@@ -989,6 +989,9 @@ void runtimeError(char *msg)
     exit(1);
 }
 
+#define TYPESIG(L, R) L*NTYPES+R
+#define CASE(L, R) case TYPESIG(L, R)
+
 oop addOperation(oop ast, oop lhs, oop rhs)
 {
     switch (TYPESIG(getType(lhs), getType(rhs))) {
@@ -1020,6 +1023,9 @@ oop mulOperation(oop ast, oop lhs, oop rhs)
     assert(0);
 }
 
+#undef TYPESIG
+#undef CASE
+
 oop expandUnquotes(oop scope, oop obj)
 {
     obj = clone(obj);