X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/e4a509b8174c8b2cfc0a084b78c9c7b7d08b624b..ef13e9a46baaa347014ac236f36a2536f055b108:/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 ------------------------------------------------*/