X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/b817bfc642225b8c3c0b6a7e42d1fb949b61a606..213e565ffaaa420441d7a8d25f995358c5f9f30f:/exp.h

diff --git a/exp.h b/exp.h
index a8b3812..e729e8c 100644
--- a/exp.h
+++ b/exp.h
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: exp.h,v 1.4 2004/04/08 01:36:15 mdw Exp $
+ * $Id$
  *
  * Generalized exponentiation
  *
@@ -397,6 +397,7 @@ exp_simul_done:								\
   for (i = 1; i < vn; i++)						\
     EXP_DROP(v[i]);							\
   xfree(v);								\
+  xfree(e.s);								\
 } while (0)
 
 /*----- Functions provided ------------------------------------------------*/