From 899b2a2a06a5febb3707170cb90c09b3417fd9f6 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 16 Jan 2017 01:53:11 -0800 Subject: 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. --- struct.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) { -- cgit v1.2.3