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, 2 insertions, 2 deletions

diff --git a/gc.c b/gc.c
index 5bbb88da..c5a66f57 100644
--- a/gc.c
+++ b/gc.c
@@ -623,11 +623,11 @@ out:
   return val;
 }
 
-void gc_mutated(val obj)
+val gc_mutated(val obj)
 {
   if (backptr_idx >= BACKPTR_VEC_SIZE)
     gc();
-  backptr[backptr_idx++] = obj;
+  return backptr[backptr_idx++] = obj;
 }
 
 val gc_push(val obj, val *plist)