Fix inappropriate "does not name a struct type" error.

* struct.c (struct_handle): The situation is that
the object isn't a structure instance, not that
the argument isn't a struct type. Use appropriate
error message.

1 files changed, 2 insertions, 1 deletions

diff --git a/struct.c b/struct.c
index 054b5f09..30f0ad15 100644
--- a/struct.c
+++ b/struct.c
@@ -369,7 +369,8 @@ static struct struct_inst *struct_handle(val obj, val ctx)
 {
   if (cobjp(obj) && obj->co.ops == &struct_inst_ops)
     return coerce(struct struct_inst *, obj->co.handle);
-  no_such_struct(ctx, obj);
+  uw_throwf(error_s, lit("~a: ~s isn't a structure"),
+            ctx, obj, nao);
 }
 
 val copy_struct(val strct)