General robustification.
[u/mdw/catacomb] / group-parse.c
index 47998c6..276e2d2 100644 (file)
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: group-parse.c,v 1.1 2004/04/01 12:50:09 mdw Exp $
+ * $Id: group-parse.c,v 1.2 2004/04/03 03:32:05 mdw Exp $
  *
  * Parse group description strings
  *
@@ -29,6 +29,9 @@
 /*----- Revision history --------------------------------------------------* 
  *
  * $Log: group-parse.c,v $
+ * Revision 1.2  2004/04/03 03:32:05  mdw
+ * General robustification.
+ *
  * Revision 1.1  2004/04/01 12:50:09  mdw
  * Add cyclic group abstraction, with test code.  Separate off exponentation
  * functions for better static linking.  Fix a buttload of bugs on the way.
@@ -78,6 +81,7 @@ group *group_parse(qd_parse *qd)
       g = group_ec(&ei);
     } break;
   }
+  if (!g) qd->e = "bad group parameters";
   return (g);
 }