* eval.c (op_modplace): push replaced with mpush (mutating push).

* gc.c (gc_push): New function.

* gc.h (gc_push): Declared.

* hash.c (pushhash): Use mpush.

* lib.c (push): Reverted to unsafe operation. TODO comment replaced
with warning.
(lazy_flatten_scan): push occurence commented as safe.
(lazy_stream_func): Unsafe push replaced with mpush.

* lib.h (mpush): New macro.

1 files changed, 1 insertions, 1 deletions

diff --git a/hash.c b/hash.c
index fa7a6cc7..c45801df 100644
--- a/hash.c
+++ b/hash.c
@@ -415,7 +415,7 @@ val sethash(val hash, val key, val value)
 val pushhash(val hash, val key, val value)
 {
   val new_p;
-  push(value, gethash_l(hash, key, &new_p));
+  mpush(value, *gethash_l(hash, key, &new_p));
   return new_p;
 }