ffi: make-union can initialize.

* ffi.c (make_union): Two arguments added. These
are optional.
(ffi_init): Update registration of make-union as
three-parameter function, with one required arg.

* ffi.h (make_union): Declaration updated.

* txr.1: Documented.

1 files changed, 1 insertions, 1 deletions

diff --git a/ffi.h b/ffi.h
index 351dedb5..232337a1 100644
--- a/ffi.h
+++ b/ffi.h
@@ -122,7 +122,7 @@ val num_carray(val carray);
 val put_carray(val carray, val offs, val stream);
 val fill_carray(val carray, val offs, val stream);
 mem_t *union_get_ptr(val uni);
-val make_union(val type);
+val make_union(val type, val init, val memb);
 val union_members(val uni);
 val union_get(val uni, val memb);
 val union_put(val uni, val memb, val newval);