New function: replace-struct.

* struct.c (replace_struct): New function.
(struct_init): Register replace_struct intrinsic.

* struct.h (replace_struct): Declared.

* txr.1: documented replace-struct.

1 files changed, 1 insertions, 0 deletions

diff --git a/struct.h b/struct.h
index 1b1543ba..dff375eb 100644
--- a/struct.h
+++ b/struct.h
@@ -33,6 +33,7 @@ val super(val type);
 val make_struct(val type, val plist, struct args *);
 val copy_struct(val strct);
 val clear_struct(val strct, val value);
+val replace_struct(val target, val source);
 val find_struct_type(val sym);
 val slot(val strct, val sym);
 val slotset(val strct, val sym, val newval);