Bugfix: super returning type rather than supertype.

* struct.c (super): Fix regression from Oct 17.
When the argument is a struct instance, we must
return the supertype, not the type.

1 files changed, 1 insertions, 1 deletions

diff --git a/struct.c b/struct.c
index 187c4618..f7768756 100644
--- a/struct.c
+++ b/struct.c
@@ -304,7 +304,7 @@ val super(val type)
 {
   if (structp(type)) {
     struct struct_inst *si = coerce(struct struct_inst *, type->co.handle);
-    return si->type->self;
+    return si->type->super;
   } else {
     struct struct_type *st = stype_handle(&type, lit("super"));
     return st->super;