Fix poorly chosen :postinit order.

* struct.c (call_postinitfun_chain): call base
handlers before derived ones, except in backward
compatibility mode.

* txr.1: Updated documentation of :postinit,
and added compatibility note.

1 files changed, 5 insertions, 1 deletions

diff --git a/struct.c b/struct.c
index 77e57c2e..7e022ed9 100644
--- a/struct.c
+++ b/struct.c
@@ -366,10 +366,14 @@ static void call_initfun_chain(struct struct_type *st, val strct)
 static void call_postinitfun_chain(struct struct_type *st, val strct)
 {
   if (st) {
-    if (st->postinitfun)
+    int derived_first = (opt_compat && opt_compat <= 148);
+
+    if (derived_first && st->postinitfun)
       funcall1(st->postinitfun, strct);
     if (st->super)
       call_postinitfun_chain(st->super_handle, strct);
+    if (!derived_first && st->postinitfun)
+      funcall1(st->postinitfun, strct);
   }
 }