Add display tag for builtin procedures.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 18 Oct 2016 07:08:42 +0000 (09:08 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 18 Oct 2016 07:08:42 +0000 (09:08 +0200)
* mes.c (display_helper): Show builtin functions as #<procedure ...>.

mes.c

diff --git a/mes.c b/mes.c
index 569fcc0c79bd6602858649cf615f2f7fe46e88ff..e9f02a635bea8380102a15fbd1ab22489f45bea8 100644 (file)
--- 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;