# HG changeset patch
# User Thinker K.F. Li <thinker@branda.to>
# Date 1221548124 -28800
# Node ID ad5ab8e61c2b1b39e83302e290ad8e835198394e
# Parent  9e2316dc6ecb0626a618fb416bbed58b6f3fb700
Free subject of complete when a program is freed

diff -r 9e2316dc6ecb -r ad5ab8e61c2b src/animate.c
--- a/src/animate.c	Tue Sep 16 14:19:26 2008 +0800
+++ b/src/animate.c	Tue Sep 16 14:55:24 2008 +0800
@@ -135,6 +135,7 @@
     int n_words;
     mb_word_t *word;
     mb_action_t *cur_act;
+    ob_factory_t *factory;
     int i;
 
     n_words = progm->n_words;
@@ -147,6 +148,10 @@
 	    cur_act->free(cur_act);
 	}
     }
+
+    factory = rdman_get_ob_factory(progm->rdman);
+    subject_free(factory, progm->complete);
+
     free(progm);
 }