Eliminate recursion from make_struct.

* struct.c (make_struct): Don't wastefully evaluate the symbolp
test twice via recursion; assign and fall through.

1 files changed, 4 insertions, 2 deletions

diff --git a/struct.c b/struct.c
index 0a38677a..bc490a6e 100644
--- a/struct.c
+++ b/struct.c
@@ -326,8 +326,10 @@ val make_struct(val type, val plist, struct args *args)
     if (!typeobj)
       uw_throwf(error_s, lit("~a: ~s doesn't name a struct type"),
                 self, type, nao);
-    return make_struct(typeobj, plist, args);
-  } else {
+    type = typeobj;
+  }
+
+  {
     struct struct_type *st = coerce(struct struct_type *,
                                     cobj_handle(type, struct_type_s));
     cnum nslots = st->nslots, sl;