kernel: add two missing CHANGED_BAG calls

gap-system · Aug 24, 2018 · 7030c45 · 7030c45
1 parent cc97204
commit 7030c45
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/objcftl.c b/src/objcftl.c
@@ -194,15 +194,15 @@ Obj CollectPolycyc (
 
           if( LtInt( INTOBJ_INT(0), e ) ) {
             C_DIFF_FIA( ee, e, INTOBJ_INT(1) );  e = ee;
-            SET_ELM_PLIST( est, st, e );
+            SET_ELM_PLIST( est, st, e ); CHANGED_BAG( est );
             conj  = ADDR_OBJ(pcp)[PC_CONJUGATES];
             iconj = ADDR_OBJ(pcp)[PC_INVERSECONJUGATES];
 
             C_SUM_FIA( ge, ELM_PLIST( list, g ), INTOBJ_INT(1) );
           }
           else {
             C_SUM_FIA( ee, e, INTOBJ_INT(1) );  e = ee;
-            SET_ELM_PLIST( est, st, e );
+            SET_ELM_PLIST( est, st, e ); CHANGED_BAG( est );
             conj  = ADDR_OBJ(pcp)[PC_CONJUGATESINVERSE];
             iconj = ADDR_OBJ(pcp)[PC_INVERSECONJUGATESINVERSE];