X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/67ea728586cfcdb4815bd1dde6f85da222ef94ff..bb77b1d1f5d16f3e8fce3d15fc2d88eb0597346f:/math/group-test.c

diff --git a/math/group-test.c b/math/group-test.c
index 8541b48..493ee2f 100644
--- a/math/group-test.c
+++ b/math/group-test.c
@@ -42,8 +42,11 @@ static group *getgroup(const char *p) {
   group *g; qd_parse qd;
   qd.p = p; qd.e = 0; g = group_parse(&qd);
   if (g && !qd_eofp(&qd)) { G_DESTROYGROUP(g); g = 0; qd.e = "junk at eof"; }
-  if (!g) { fprintf(stderr, "bad group string `%.*s|%s': %s\n", qd.p - p,
-		    p, qd.p, qd.e); exit(1); }
+  if (!g) {
+    fprintf(stderr, "bad group string `%.*s|%s': %s\n",
+	    (int)(qd.p - p), p, qd.p, qd.e);
+    exit(1);
+  }
   return (g);
 }