Bunch of fixes.

* gc.c (gc_mutated): Return the value.

* gc.h (gc_mutated): Declaration updated.

* hash.c (remhash): Fix unsafe assignment to use set macro.

* lib.c (sort): Fix wrong use of mut macro on the list
before it is sorted rather than after.

* lib.h (mut): Trivial version of macro updated to return argument.

* unwind.c (uw_init): The toplevel environment's match_context
should be gc_protected. Though this is probably not used,
which is why it has not been a problem.

1 files changed, 1 insertions, 2 deletions

diff --git a/lib.c b/lib.c
index 0f4a33fe..77231478 100644
--- a/lib.c
+++ b/lib.c
@@ -3853,8 +3853,7 @@ val sort(val seq, val lessfun, val keyfun)
        objects. Sorting the list could reverse some of the
        pointers between the generations resulting in a backpointer.
        Thus we better inform the collector about this object. */
-    mut(seq);
-    return sort_list(seq, lessfun, keyfun);
+    return mut(sort_list(seq, lessfun, keyfun));
   }
 
   sort_vec(seq, lessfun, keyfun);