Fix -pedantic warnings as well

main.c

@@ -82,6 +82,8 @@ static Noreturn usage(void) {
 		"	-p	don't load functions from the environment\n"
 		"	-o	don't open stdin, stdout, and stderr if they were closed\n"
 		"	-d	don't ignore SIGQUIT or SIGTERM\n"
+	);
+	eprint(
 #if GCINFO
 		"	-I	print garbage collector information\n"
 #endif

match.c

@@ -28,7 +28,7 @@ static int rangematch(const char *p, const char *q, char c) {
 	Boolean neg;
 	Boolean matched = FALSE;
 	Boolean advanceq = (q != QUOTED && q != UNQUOTED);
-#define QX(expr) (advanceq ? (expr) : (void)0)
+#define QX(expr) (advanceq ? (expr) : 0)
 	if (*p == '~' && !ISQUOTED(q, 0)) {
 		p++, QX(q++);
 	    	neg = TRUE;

prim.c

@@ -6,11 +6,11 @@
 static Dict *prims;
 
 extern List *prim(char *s, List *list, Binding *binding, int evalflags) {
-	List *(*p)(List *, Binding *, int);
-	p = (List *(*)(List *, Binding *, int)) dictget(prims, s);
+	Prim *p;
+	p = (Prim *) dictget(prims, s);
 	if (p == NULL)
 		fail("es:prim", "unknown primitive: %s", s);
-	return (*p)(list, binding, evalflags);
+	return (p->prim)(list, binding, evalflags);
 }
 
 static char *list_prefix;

prim.h

@@ -1,12 +1,16 @@
 /* prim.h -- definitions for es primitives ($Revision: 1.1.1.1 $) */
 
+typedef struct { List *(*prim)(List *, Binding *, int); } Prim;
+
 #define	PRIM(name)	static List *CONCAT(prim_,name)( \
 				List UNUSED *list, Binding UNUSED *binding, int UNUSED evalflags \
 			)
-#define	X(name)		(primdict = dictput( \
+#define	X(name)		STMT( \
+			static Prim CONCAT(prim_struct_,name) = { CONCAT(prim_,name) }; \
+			primdict = dictput( \
 				primdict, \
 				STRING(name), \
-				(void *) CONCAT(prim_,name) \
+				(void *) &CONCAT(prim_struct_,name) \
 			))
 
 extern Dict *initprims_controlflow(Dict *primdict);	/* prim-ctl.c */

var.c

@@ -114,14 +114,16 @@ static Boolean isexported(const char *name) {
 
 /* setnoexport -- mark a list of variable names not for export */
 extern void setnoexport(List *list) {
+	static char noexportchar = '!';
+
 	isdirty = TRUE;
 	if (list == NULL) {
 		noexport = NULL;
 		return;
 	}
 	gcdisable();
 	for (noexport = mkdict(); list != NULL; list = list->next)
-		noexport = dictput(noexport, getstr(list->term), (void *) setnoexport);
+		noexport = dictput(noexport, getstr(list->term), &noexportchar);
 	gcenable();
 }