More informative printed rep for functions.

* lib.c (obj_print_impl): Print whether
a function is interpreted or intrinsic, and
include argument information.

* tests/012/struct.tl: Test case relying on
function printed rep updated.

1 files changed, 18 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index d31a06bb..b912e9b0 100644
--- a/lib.c
+++ b/lib.c
@@ -7380,7 +7380,24 @@ finish:
     format(out, lit("#<package: ~s>"), obj->pk.name, nao);
     break;
   case FUN:
-    format(out, lit("#<function: type ~a>"), num(obj->f.functype), nao);
+    {
+      struct func *f = &obj->f;
+      if (f->functype == FINTERP) {
+        val fun = f->f.interp_fun;
+        format(out, lit("#<interpreted fun: ~s ~s>"),
+               car(fun), cadr(fun), nao);
+      } else {
+        format(out, lit("#<intrinsic fun: ~a param"),
+               num_fast(f->fixparam - f->optargs), nao);
+        if (f->optargs)
+          format(out, lit(" + ~a optional"),
+               num_fast(f->optargs), nao);
+        if (obj->f.variadic)
+          put_string(lit(" + variadic>"), out);
+        else
+          put_char(chr('>'), out);
+      }
+    }
     break;
   case VEC:
     {