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

diff --git a/lib.h b/lib.h
index 45bfae30..61af0d45 100644
--- a/lib.h
+++ b/lib.h
@@ -231,9 +231,11 @@ union obj {
 #if CONFIG_GEN_GC
 #define set(place, val) ((place) = (val))
 #define mut(obj)
+#define mpush(val, place) (push(val, &(place)))
 #else
 #define set(place, val) (gc_set(&(place), val))
 #define mut(obj) (gc_mutated(obj));
+#define mpush(val, place) (gc_push(val, &(place)))
 #endif
 
 INLINE cnum tag(val obj) { return ((cnum) obj) & TAG_MASK; }