Add display tag for builtin procedures.

* mes.c (display_helper): Show builtin functions as #<procedure ...>.
2016-10-18 09:08:42 +02:00 · 2016-10-18 09:08:42 +02:00 · b9bbac3d0c
parent 0eae7674b6
commit b9bbac3d0c
1 changed files with 1 additions and 0 deletions
--- a/mes.c
+++ b/mes.c
@ -1037,6 +1037,7 @@ display_helper (FILE* f, scm *x, bool cont, char const *sep, bool quote)
    }
    fprintf (f, ")");
  }
+  else if (builtin_p (x) == &scm_t) fprintf (f, "#<procedure %s>", x->name);
  else if (atom_p (x) == &scm_t) fprintf (f, "%s", x->name);

  return &scm_unspecified;