bugfix: supertype check in make-struct-type.

* struct.c (make_struct_type): Fix test of incorrect variable
which renders the supertype test useless, causing the type
to be created with no supertype.

1 files changed, 1 insertions, 1 deletions

diff --git a/struct.c b/struct.c
index 7517b8dd..ac17ee26 100644
--- a/struct.c
+++ b/struct.c
@@ -241,7 +241,7 @@ val make_struct_type(val name, val super,
 
   if (super && symbolp(super)) {
     val supertype = find_struct_type(super);
-    if (!super)
+    if (!supertype)
       no_such_struct(self, super);
     super = supertype;
   } else if (super) {