--- heirloom-devtools-070527/lex/sub1.c.old	2005-11-26 12:50:23.000000000 -0600
+++ heirloom-devtools-070527/lex/sub1.c	2017-12-12 04:13:27.493347227 -0600
@@ -162,7 +162,8 @@
 }
 
+#undef index
 int
 index(int a, CHR *s)
 {
 	int k;
 	for (k = 0; s[k]; k++)