* 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, 6 insertions, 0 deletions

diff --git a/gc.c b/gc.c
index a644be3a..106daa25 100644
--- a/gc.c
+++ b/gc.c
@@ -561,6 +561,12 @@ void gc_mutated(val obj)
     gc();
 }
 
+val gc_push(val obj, val *plist)
+{
+  gc_mutated(obj);
+  return push(obj, plist);
+}
+
 #endif
 
 /*